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1  Introduction 

In  this  memorandum  we  give  a  formal  definition  of  the  dynamic  semantics  of  the  Kernel 
of  ELLA.  The  Kernel  is  a  set  of  data  structures  defined  in  [MH91]  into  which  any  ELLA 
description  can  be  transformed.  In  [HM92]  a  set  of  transformational  rules  are  given  which  have 
been  used  to  define  the  implementation  of  a  compiler  from  Core  ELLA  to  the  Kernel.  Core 
ELLA  represents  the  heart  of  the  ELLA  language  and  consists  of  those  constructs  into  which 
any  ELLA  description  can  be  transformed  via  the  commercial  ELLA  system.  For  a  complete 
description  of  ELLA  the  reader  is  referred  to  [Com90]. 

In  this  memorandum  we  start  by  looking  at  a  subset  of  the  Kernel,  which  we  shall  call  Kl,  which 
is  equivalent  to  a  previously  defined  language,  called  £,  described  by  Davies  in  [Dav88].  We 
demonstrate  how  the  semantics  of  this  language  can  be  given  by  the  definition  of  an  evaluator. 
We  then  proceed  to  extend  Kl  to  allow  function  declarations,  this  is  done  by  introducing  the 
concept  of  an  environment.  The  definition  and  application  of  an  evaluator  for  describing  the 
semantics  of  a  language  with  an  environment  are  given. 

Having  demonstrated  the  evaluation  process  for  these  two  simple  languages  we  then  extend  the 
process  to  describe  the  dynamic  semantics  of  the  Kernel.  Throughout  this  memorandum  use 
will  be  made  of  the  VDM  notation  (see  [Jon90]). 


2  Language  Kl 

2.1  Language  Definition 


The  language  Kl  will  be  defined  to  be  that  subset  of  the  Kernel 
language  constructs  defined  in  [Dav88].  We  begin  by  restating  the 


[Dav88],  which 
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which  encompasses  the 
language  £  specified  in 


where  E  represents  expressions,  C  constant  values  and  V  variable  names.  The  A,  feature  allows 
timing  to  be  incorporated  within  the  language.  The  A,  is  taken  to  be  a  unit  delay,  with  initial 
value  s,  i.e.  it  passes  its  input  to  its  output  after  one  time  step,  with  the  value  at  time  zero 
being  ».  The  case  expression,  Cl  a:  A,  is  a  multiplexer-like  construct  which  selects  its  output 
expression  from  A,  based  on  the  dynamic  value  of  its  input  a.  The  set  ‘A’  comprises  the 
complete  set  of  tests  and  expression-results  for  the  Case  construct.  The  language  can  describe 
recursive  expressions  by  means  of  the  last  construct,  for  example  a  case  statement  which  toggles 
its  input  value  and  which  feeds  its  output  into  its  input  via  a  delay,  is  represented  as  (see  figure 
1) 


nb.AtQb:({{t, /),(/,<)}) 

Having  stated  the  Language  as  defined  in  [Dav88]  we  now  rewrite  this  language  using  a  recursive- 
let  style  to  show  the  connection  with  the  Kernel,  and  we  will  call  this  language  Kl.  We  begin 
by  giving  the  types  which  can  be  used  in  Kl. 


T  C  {  (typename,  [enum]*)  } 

Time  C  N 

where  T  represents  a  basic  enumerated  type  and  Time  will  be  used  to  represent  evaluation 
time,  analogous  to  simulator  time  steps  in  the  full  ELLA  system. 

The  language  classes  which  are  needed  for  Kl  are  the  following 
Variables,  (v  £  Var)  given  by:- 

v  ::=  id 

where  ‘id1  is  an  identifier  by  which  the  variable  is  known, 

Constants,  (c  €  Const)  given  by:- 

c  ::=  enum 

where  ‘enum’  is  a  basic  enumerated  value  from  a  type  declaration 
Expressions,  (e  €  Expr)  given  by:- 

e  ::=  v  |  c  |  (el5  e2)  |  Delayc(e)  \  Case  (ee,  [(c,  e)]*)  |  let  d  in  e 

and  Declarations,  (d  £  Decl)  given  by;- 

d  ::=  v  =  e 

where  in  declarations  the  expression  e  could  contain  references  to  r.  The  Delay t(e)  is  a  unit 
delay  with  initial  value  ‘c’  and  input  expression  ‘e\  The  Case  (ee,  [(c,  e)]*)  is  a  multiplexer-like 
construct  which  delivers  the  expression  part,  ‘e’,  of  one  of  the  tuples  in  the  sequence,  this  choice 
being  made  by  the  correspondence  between  ‘c’  and  the  dynamic  evaluation  of  its  input  ‘ec’. 


2.2  Language  Evaluation 

In  order  to  be  able  to  define  the  evaluation  of  expressions  in  Kl  we  first  introduce  the  idea  of 
signal  history,  by  means  of  the  following  data  structure.  This  data  structure  will  allow  dynamic 
signal  values  to  be  collected  for  each  evaluation  time  step:- 

History  ::  name  :  Var 
const  :  Const 
time  :  Time 

The  sequence  History *  will  be  the  set  which  contains  a  constant  assignment  to  each  variable  at 
every  time  unit. 

The  use  of  History  means  that  the  dynamic  semantics  of  Kl  can  be  defined  by  means  of  the 
following  evaluation  function 
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Evoluate-Exp:  Expr  x  History *  x  Time  — *  Const 
Evaluate- Exp(e,  history ,  t)  A 


cases  e  of 

t> 

— *  let  val  =  t  (t  €  inds  history )  •  /ustory[»]  =  (t),  t)  in 

c 

val[  2} 

— *  c 

— »  (Evaluate- Exp(e i,  history,  t ),  Evaluate- Exp ( e2 ,  history,  t)) 

Delay  e{e) 

-►  if  t>  0 

Case(et,  [( c. 

then  Evaluate- Exp(e,  history,  f-1) 
else  c 

e)]*)  — >  let  Evaluate-Exp(ec,  history,  t)  =  Ci  in 

let  d  in  e 

let  (ci,e<)  €  [(c,  e)]*  in 

Evaluate-Exp(ei,  history,  t) 

— *  let  history*  =  Update-History (d,  history,  t)  in 

end 

Evaluate- Exp(e,  history *,  t) 

where  val  in  the  first  alternative  represents  the  unique  element  in  the  history  with  the  correct 

identifier  and  time.  When  a  let  declaration  is  being  evaluated  its  result  could  depend  on  values 
from  previous  times.  Thus  in  order  to  obtain  the  latest  value  of  the  expression  a  list  of  relevant 
history  values  must  be  known.  The  function  Update- History  calculates  these  and  hence  delivers 
a  sequence  of  History  values  of  all  possible  identifiers  from  the  previous  time  value  back  to 
time  zero.  It  does  this  by  calculating  the  value  of  the  let  expression  at  all  previous  times. 

At  each  time  step  the  history  sequence  delivered  will  contain  all  necessary  variable  values  for 
the  calculation  of  the  value  of  the  expression.  Once  all  previous  time  calculations  have  been 
performed  the  current  value  of  the  expression  can  be  evaluated.  The  function  Update-History 
is  given  by 

Update-History:  DecI  X  History *  x  Time  — *  History * 

Update-History(d,  history,  t) 
cases  d  of 

v  --  e  — *  let  history'1  =  history  in 

let  history '  =  history*'1  ^  [(v,  Evaluate- Exp(e,  history'1, »'), »)],  for  i  =  (M)..0 
history M  n  [(v,  Evaluate- Exp(e,  history t'1,t),t)] 

end 


Within  the  Kernel  functions  are  described  as  collections  of  signal  declarations  with  the  function 
body  being  an  expression  which,  possibly,  contains  references  to  the  signal  declarations.  If  we 
restrict  ourselves  to  only  one  function  in  a  Kernel  environment  then  the  evaluation  of  that 
function  is  equivalent  to  the  evaluation  of  the  functions  body  expression.  Expressions  in  Kl 
can  therefore  be  thought  of  as  function  body  expressions  with  the  let  construct  representing  the 
signal  declarations.  In  the  section  3  we  extend  Kl  by  introducing  the  essence  of  the  Kernel 
environment  and  demonstrate  how  the  evaluator  defined  in  this  section  can  be  enhanced  to 
describe  its  semantics. 

However  before  proceeding  we  give  a  simple  example  of  the  evaluation  of  a  function  in  Kl. 
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2.3  Example 

In  this  example  we  consider  the  expression  which  is  shown  pictorially  in  figure  1,  and  is  equiv¬ 
alent  to  the  expression  given  in  section  2.1.  In  figure  1  the  triangular  object  represents  a  unit 
delay,  and  the  Case  statement  is  represented  by  a  box,  with  the  details  of  the  Case  statement 
not  shown. 

Let  b  have  type  (bool,  [h,lj )  and  define  the  expression  as  follows 

exp  =  let  b  =  Delayi(Case(b,[(h,l),{l,h)]))  in  b 


CASE 

IV. 

1/ 

Figure  1:  Simple  Recursive  Example 

Now  consider  the  evaluation  of  the  expression  at  time  =  1,  with  an  initial  history  set  to  empty 
e.g.  history  =  [],  this  is  possible  since  there  is  no  direct  input  to  the  expression.  In  this 

example  we  will  use  the  shorthand  notation  of  ‘...’  to  represent  hidden  text. 

Evaluate- Exp{exp,  [],  1)  =  let  history *  =  Update-History{b  =  Delay i(. ..),[],  1)  in 

Evaluate-Exp{b,  history*,  1) 

where 

Update-History(b  =  Delayi(. ..),[],  1 ) 

=  let  history 1  =  []  in 

let  history0  =  [(6,  Evaluate-Exp(Delayi(. ..),[],  0),  0]  in 
history0  ^  [(6,  Evaluate-Exp(Delayi(...),  history0, 1),  1] 


Evaluale-Exp(Delayi{. ..),[],  0)  =  l 
Evaluate-Exp(Delayi(...),  [(6,  Z,0)],  1) 

=  Evaluate-Exp(  Case(b ,  [(h,  l),  (l,h)}),  [(6,  /,  0)],  0) 
=  h 


thus 

V pdate- History  (b  =  Delayi(. ..),[],  1)  =  [(6, 1,0),  (6,  ft,  1)] 
and  hence 

Evaluate- Exp(exp,  [],  1)  =  Evaluate- Exp(b,  [(ft,  l,  0),  (6,  ft,  1)],  1)  =A 

Similarly  it  can  be  shown  that 
Evaluate-Exp(exp,[],  2)  =1 
Evaluate- Exp(exp,[],  3)  =  A  ...etc 

Notice  that  since  the  expression  has  no  direct  inputs  it  is  possible  to  start  any  evaluation  with 
an  empty  history,  the  history  of  internal  signals  always  get  built  up  as  the  evaluation  process 
progresses. 
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3  Language  K2 

3.1  Language  Definition 

We  now  proceed  to  define  the  language  K2,  which  is  a  direct  extension  of  Kl,  that  introduces 
an  environment  with  function  declarations.  The  main  evaluation  function  is  called  Evaluate-Fn 
and  this  evaluates  the  result  of  a  function  given  a  specified  input  history.  This  model  of  evalu¬ 
ation  is  ‘backward-looking’  in  the  sense  that  the  value  of  the  present  output  is  calculated  from 
the  dependency  of  values  from  a  previous  time. 


The  language  classes  have  been  changed  from  Kl  to 
Expressions,  (e  £  Expr) 

e  ::=  Sig(no)  |  c  |  (e2,  e2)  |  Delayc(e)  |  Case(ech ,  [(c,  e)]*  )  |  Call(fnno,  e)  |  Index(e,ind) 
Constants,  (c  €  Const)  :- 
c  ::=  enum  |  (cj,  c2) 

where  ‘Sig(no)’  is  defined  tc  be  the  result  delivered  by  the  noth  signal  declaration  of  the  en¬ 
closing  function  declaration  (see  below).  Function  calls  are  all  implicit  and  are  represented  by 
‘Call(fnno,  e)’  which  is  the  instantiation  of  a  function  which  is  the  fnnoth  declaration  in  the 
environment  with  ‘e’  assigned  to  its  input  expression.  Tuples  and  indexing  have  been  included 
within  K2  to  demonstrate  how  structured  function  inputs  can  be  handled. 

An  environment  which  collects  together  all  the  type  and  function  declarations  is  given  by 
Env  ::  typedec  :  Typedec * 
fndec  :  Fndec * 


with 

Typedec  ::  type-name  :  Id 

enum  :  Enum * 

Fndec  ::  fnname  :  Id 

signal  :  Signal ’ 
expr  :  Expr 

Signal  ::  name  :  Id 

expr  :  Expr 

where  a  function  declaration  is  defined  to  have  three  fields.  The  first  field  is  the  name  of 
the  function,  the  second  is  a  sequence  of  signal  declarations  which  closely  correspond  to  the 
‘let  signalname  in  expression'  of  Kl.  The  last  field  is  the  expression  delivered  by  the  function. 
Signal  declarations  in  a  function  are  referenced  by  their  position  in  the  signal  declaration  field 
of  the  function  declaration.  Thus  sig( 3)  represents  the  result  of  the  third  signal  declaration. 


3.2  Language  Evaluation 

In  a  similar  manner  to  Kl  we  need  to  define  a  history-like  data  structure  in  order  to  hold 
function  input  data  history.  The  History  concept  of  Kl  can  however  be  simplified  for  K2  by 
means  of  the  introduction  of  an  Input  data  structure  as  defined  by 
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Input  ::  const  :  Const 
time  :  N 

Here  we  see  that,  compared  with  History ,  an  identifier  field  is  no  longer  necessary.  This  is 
possible  since  Input  is  defined  to  be  a  sequence  of  values  (over  time)  which  are  the  inputs  to 
a  function.  Thus  all  function  inputs  will  be  represented  within  Input  as  having  only  one  input 
terminal.  Naturally  some  function  definitions  may  contain  inputs  which  are  structures  of  named 
types.  In  this  case  within  the  function  signal  field  the  first  element  will  be  defined  as  (input, 
)  and  then  named  input  terminals  will  refer  to  this  field.  For  example  if  a  function  signal  field 
contained  the  following  entry  (inputl,  sig(l)),  it  would  imply  that  the  function  had  one  named 
input,  called  ‘inputl’.  For  functions  with  structured  inputs  the  following  could  be  possible 
within  the  function  signal  field  (input2,  Index(sig(l),2)),  which  would  mean  that  ‘input2’  was 
the  second  input  terminal  of  the  function.  For  this  language  we  shall  limit  the  size  of  a  structure 
to  two  items,  this  restriction  will  be  removed  in  the  next  section. 


As  in  the  case  of  Kl  some  expressions  could  need  the  results  of  expressions  from  previous  time 
steps.  Thus  to  evaluate  each  function  a  sequence  of  Inputs  will  be  needed.  These  sequences 
define  collections  of  input  values  to  the  function  from  time  0  to  the  current  time  i.e.  input  = 
[(c4,  timet),  •••,  (co,  timeo)].  By  using  a  model  of  evaluation  which  calculates  the  present  function 
value  by  recourse  to  all  previous  function  inputs,  the  storing  of  the  values  of  signals  internal  to 
a  function  declaration  is  avoided. 


Since  the  structure  Input  has  replaced  History  the  function  Update-History  of  Kl  needs  to  be  re¬ 
placed  by  a  function  Update-Inputs.  This  function  performs  a  similar  operation  to  Update-History, 
but  instead  of  calculating  all  possible  values  of  each  variable  it  calculates  all  values  to  the  input 
of  the  function  from  previous  times.  This  naturally  means  that  in  order  to  evaluate  a  function,  F 
say,  at  some  time,  t  say,  the  evaluation  of  F  will  need  to  know  the  complete  history  of  all  inputs 
to  F  from  time  zero  to  time  t.  Any  internal  function  calls  within  F  can  calculate  the  history  of 
inputs  to  those  functions  by  knowing  the  history  of  inputs  to  F.  In  such  cases,  as  can  be  seen  by 
Evaluate-Exp.  a  function  call  needs  to  generate  a  history  of  all  local  inputs  to  that  function  call. 

Thus  the  function  for  generating  a  sequence  of  input  values  (over  time)  is  defined  as 

Update-Inputs\  Expr  x  Signal *  x  Input *  x  Time  — •  Input * 

Update-Inputs{e,  signals,  inputs,  t)  A 
if  t>  0 

then  let  inputs'  =  Update-Inputs(e,  signals,  inputs,  (<-l))  in 
inputs'  f  [{Evaluate- Exp(e,  signals,  inputs',  <),<)] 
else  inputs 


Concatenation  in  the  definition  of  Update- History  in  Kl  has  been  replaced  by  overwrite  for 
Update- Inputs .  This  is  chosen  since  each  function  references  its  input  by  the  tag  .input.  Thus 
two  different  function  calls  would  both  reference  their  respective  inputs  by  this  tag.  By  using 
the  notion  of  overwriting  of  Input  values  we  can  avoid  the  stacking  and  unstacking  of  Input 
sequences.  This  is  of  course  only  possible  since  each  Input  sequence  is  local  to  a  function  call, 
and  there  are  no  local  scoping  rules. 
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Evaluation  of  an  expression  has  a  similar  format  to  that  for  Kl.  The  following  function  defines 
the  evaluation  for  each  expression  in  K2. 

Evaluate- Exp:  Expr  x  Signal*  x  Input*  x  Time  — >  Const 

Evaluate- Exp(e,  signals,  inputs,  t)  A 

cases  e  of 

sig(no)  — »  let  signal  =  stpna/s[no]  in 

if  signal.name  =  input ” 

then  let  val  —  i  (t  €  inds  inputs)  •  inputs [i]  =  (-,  0 
va/[l] 

else  Evaluate-Ezp(signal.expr,  signals,  inputs,  t ) 

c  —*  c 

(ei,ej)  -♦  (Evaluate-Exp(e\,  signals,  inputs,  t), 

Evaluate- Exp{ei,  signals,  inputs,  t)) 

Delayc(e)  — *  if  t>  0 

then  Evaluate-Exp(e,  signals,  inputs,  1-1) 
else  c 

Case(ec,  [(c,  e)]*)  — » let  Evaluate- Exp(ec,  signals,  inputs,  t)  =  c<  in 
let  (ci,ei)  €  [(c,  e)]*  in 
Evaluate-Ezp(ei,  signals,  inputs,  t) 

Call(fnno,e )  — *  let  inputs'  =  Update-Inputs(e,  signals,  inputs,  t)  in 

Evaluate- Fn(fnno,  inputs',  1) 

Index[e,  *..«’)  — *  let  (ci,Cj)  =  Evaluate- Exp{e,  signals,  inputs,  t)  in 

if  ind  =  1 
then  ci 
else  Cj 

end 


where  signal.name  is  the  name  field  of  the  signal  data  structure,  and  val  is  the  unique  input 
element  with  the  desired  value  of  time. 

The  above  two  functions  can  now  be  combined  into  a  function  for  evaluating  the  fnnoth  function 
in  an  environment,  given  a  specific  input  history  list,  at  a  specific  time  as 

Evaluate-Fn :  Fnname  x  Input*  x  Time  — ►  Const 

Evaluate- Fn(fnno,  inputlist,  time)  A 
let  / dec  =  (EnvFndec)[/nno]  in 
Evaluate- Exp(f dec. expr,  f dec. signal,  inputlist,  time) 


where  env  is  the  complete  environment  containing  the  function,  EnvFndec  the  operator  which 
returns  the  function  declaration  field  of  the  environment,  and  index  [fnno]  the  fnnoth  element 
of  the  resulting  sequence  (a  glossary  of  the  symbols  used  in  this  document  is  given  in  appendix 
A). 

In  order  to  show  the  evaluation  process  we  now  give  two  examples.  The  first  example  is  a  repeat 
of  that  given  in  section  2.3,  the  second  example  is  of  a  reset /set  flip-flop. 
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3.3  Example  1 

Here  we  rewrite  the  example  of  the  section  2.3  as  two  functions,  called  A  and  B,  to  demonstrate 
evaluation  in  K2.  The  environment  is  given  by 


Env  =  (  [(bool,  [h,l])], 

[(A,  [(.input,  .)],  Case(sig(l),  [(h,l),(l,h)])), 

(B,  [( -input,  .),  (b,  Delayj(Call(l,sig(2))))],  sig(2)] 


This  environment  can  be  written  more  readably  as 


Type  bool  *  (h  I  1). 

Fn  1  =  (bool: .input)  ->  bool: 
CASE  .input  OF 
h:  1, 

1:  h 
ESAC. 

Fn  B  =  (bool:. input)  ->  bool: 
(  Let  b  *  Delay{l>  (A  b) 

In  b 

). 


It  should  be  noted  that  this  format  does  not  conform  to  any  particular  language,  its  purpose  is 
to  give  a  visualisation  of  the  above  environment  where  the  calls  of  signals  can  be  more  readily 
seen. 

Now  consider  the  Evaluation  of  function  B  at  time  ‘1’  with  signal  inputs  set  to  initial  = 
[(A,  l),(/i,0)].  In  this  case  we  start  with  a  non-empty  input  history  in  order  to  show  the  over¬ 
writing  of  input  values.  In  the  following  the  syntax  *...’  is  used  to  signify  that  parts  of  the 
expression  have  been  left  out  in  order  to  aid  readability. 

Evaluate- Fn (2,  initial,  1)  =  Evaluate- Exp{sig{ 2),  [(6,  Delay{. ..))],  initial, 1) 

=  Evaluate- Exp{Delay  [(6, ...)],  initial,  1) 

=  Evaluate-Exp(  Call(l,  sig( 2)),  [( b, ...)],  initial,  0) 

=  let  i'  =  Update- Input{sig[2),  [(6, ...)],  initial,  0)  in 
Evaluate-Fn(  1,  i',  0) 

where 

Update-Input(tig(2),  [(6...)],  initial,  0)  = 
let  i'  =  initial  in 

i'  f  [(£,vaiuate-£zp(sj's(2),[(6...)],t',0),0] 

=  i' t  \(Evaluale-Exp(Delay(...),  t',0),0] 

=  «"t[(/,0)] 
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therefore 

Evaluate- Fn(2,  initial,  1)  =  let  »'  =  initial  f  [(/,  0)]  =  [(/i,  1),  (Z,0)]  in 

Evaluate- Fn(l,  i',  0) 

=  Evaluate-Exp[Case{...),  [(-input, .)],  i',  0) 

=  let  cc  =  Evaluate-Exp(sig(l),  [(-input,  _)],  i',  0)  =  /  in 
let  (cc,  e)  6  [(h,l),(l,h)\  in 
Evaluate-Exp{e) 

=  h 

and  hence  the  result  of  evaluating  B  is  the  same  as  for  evaluating  the  expression  in  tb  j  previous 
section. 


3.4  Example  2 

In  this  example  we  demonstrate  the  result  of  evaluating  of  an  RS  Flip  Flop.  The  definition  of 
an  appropriate  environment  is  given  by 

env  =  (  [(bool,  [h,l] )] 

[(NOR,  [(input,  .)),  Case(sig(l),  [((l,l)^),((l,h),l),((h,l),l),((h,h),l)] )) 

(RSFF,  [  (input,  .), 

(ini,  Index(sig(l),  1)), 

(in2,  Index(sig(l),  2)), 

(dell,  Delay/(sig(6))), 

(del2,  Delay;(sig(7))), 

(norl,  Call(l,  (sig(2),  sig(5)))), 

(nor2,  Call(l,  (sig(3),  sig(4)))), 

]. 

sig(4)) 

] 

) 

It  can  be  noted  that  the  function  RSFF  has  an  input  which  is  a  structure  of  two  items  called 
ini  and  in2.  There  are  two  function  calls  to  NOR  the  outputs  of  which  are  named  norl  and 
nor2,  with  the  result  of  RSFF  being  the  expression  ‘sig(4)\  This  circuit  is  shown  in  figure  2. 


ini 


in2 


Figure  2:  RSFF 
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When  this  circuit  is  evaluated  for  time  t  =  3,  say,  an  input  list  of  the  form  [((l,h),0),  ((l,h),l), 
((l,h),2),  ((l,h),3)]  is  needed.  Evaluation  for  this  case  gives 

Evaluate- Fn(2t  [((/,  h),  0),  ((/,  h),  1),  ((1,  A),  2),  ((/,  A),  3)],  3) 

=  Evaluate-Ezp(sig{\),  [(.input, .), ...,  (nor2, ...)],  [((/,  h),  0 )...((!,  h), 3)],  3) 

=  h 

where  the  result  has  been  obtained  from  a  computer  implementation  of  the  evaluation  functions 
defined  in  this  section.  The  result  of  applying  Evaluaie-Ezp  at  the  outer  level  at  time  t=3  is  to 
‘unwrap’,  or  fold  back,  the  circuit  in  time.  The  result  of  this  is  most  readily  seen  in  pictorial 
form  and  a  representation  is  given  in  figure  3. 


4  The  Semantics  of  the  Kernel 

4.1  Kernel  verses  K2 

We  now  proceed  to  give  the  definition  of  the  Kernels  dynamic  semantics.  The  Kernel  is  really 
an  extended  version  of  K2  where  the  following  extensions  have  been  made  (the  names  under 
the  Kernel  column  refer  to  Kernel  data  structures,  see  appendix  B) 


K2 

Kernel 

expression 

-> 

Unit 

constant 

-> 

Const 

environment 

-♦ 

Env 

typedec 

— 

Typedec 

fhdec 

—* 

Fndec 

signal 

— 

Signaldec 

Some  of  the  structures  in  the  Kernel,  like  signaldec,  have  fields  which  hold  typing  information. 
This  is  not  strictly  necessary  for  the  definition  of  the  dynamic  semantics  but  we  leave  the 
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structures  as  defined  in  [MH91]  for  completeness.  The  Input  history  of  a  function  declaration 
remains  unaltered.  The  evaluation  of  a  Kernel  function  will  follow  the  same  process  as  that  of 
a  K2  function.  However,  due  to  the  large  increase  of  terms  in  going  from  expressions  in  K2  to 
units  in  the  Kernel,  before  we  can  define  the  Evaluate-Fn  function  for  the  Kernel  a  number 
of  other  functions  are  needed,  these  are  defined  in  the  subsequent  sections. 


4.2  Environment  Access  Operators 

A  Kernel  environment  contains  all  the  Type  and  Function  declarations,  see  [MH91],  and  the 
operators  in  this  section  define  how  declarations  are  accessed. 


Extracting  a  Type  declaration:- 

EnvTypedec()tydec:  kTypedec 

ext  rd  env:  Env 

post  tydec  =  ( env.typedec ) 

Extracting  a  Function  dedaration:- 

EnvFndec()fndec:  kFndec 

ext  rd  env:  Env 

post  fndec  =  ( env.fndec ) 

Since  the  environment  is  not  going  to  be  altered  by  the  evaluation  of  a  function  there  is  no 
necessity  for  operators  which  update  the  environment  (the  environment  only  gets  updated 
during  compilation,  see  [HM92]  for  a  description  of  the  operators  necessary  for  compilation). 


4.3  General  Functions 


In  this  section  we  define  functions  which  are  general  to  the  evaluation  process.  We  start  by 
looking  at  two  functions  which  deliver  the  type  of  an  expression.  The  first  delivers  the  type  of 
a  constant  expression  and  is  given  by 


Type-Of-Consi  :  kConst  — *  kType 

Type- Of- Const  (const)  & 
cases  const  of 
enum(tj/peno,_) 
string(  typeno,  [tap*,  •  •  • ,  tagn ]) 
conststring(size,  c) 
consts([c|,  •  ■  • ,  cn]) 

constassoc(  enum (typeno,.),.) 
constquery  (type) 
constvoid 

end 


typeno  (typeno) 

stringtype(n,  typeno( typeno)) 
stringtype(s:ze,  Type-Of-Const(c)) 
types  ([Type- Of- Const  (c^, 

",  Type- Of- Const  (c„)]) 
typeno(  typeno) 
type 

typevoid 


The  type  of  a  unit  expression  can  be  found  by  means  of  the  following  function.  For  some  of  the 
unit  expressions,  e.g.  extract,  the  required  typing  information  is  not  held  directly  in  the  unit 
data  structure.  In  such  cases  the  information  needs  to  be  located  within  the  environment.  For 
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the  case  of  extract  this  means  finding  the  correct  type  declaration,  selecting  the  sequence  of 
enumerated  values  of  the  type,  locating  the  desired  element  of  that  sequence  and  then  finding 
the  type  of  the  optional  part,  which  will  only  be  a  valid  type  in  the  case  of  an  associated  value. 

Type- Of- Unit-.  kUnit  x  Signaldec *  — *  kType 


Type-Of- Unit(unit,  sigdecs)  A 
cases  unit  of 
enumerated 
conc(.,.,  type) 
instanc e(/nno, .) 
unitassoc(  enum(  typeno,  .),  _) 
extract(  enum (typeno,  tagno),.  ) 
s  ignal  ( signalno) 
index(.,_,  outputtype) 
trim(.,  -, .,  outputtype) 
dyindex(-,_,  outputtype) 
replace(u, ., .) 
unit  query  (type) 
unitvoid 

unitstring(size,  u) 
caseclause(_,  _,  u) 
units([u!,  •••,«„]) 


Type-Of- Const  ( enumerated ) 
type 

(EnvFndec)\fnno].  outputtype 
typeno  (typeno) 

((EnvTypedec)[typeno].new)[tagno].typeopt 

sigdecs[  signalno] .  type 

outputtype 

outputtype 

outputtype 

Type-Of-Unit(u,  sigdecs) 
type 

typevoid 

stringtype(size,  Type-Of-Vnit  (u, sigdecs)) 

Type- Of- Unit  (it,  sigdecs ) 

types([  Type- Of-Unit  (ui,  sigdecs), 

•  •  • ,  Type-Of-Unit  (u„,  st'ydecs)]) 


end 


In  some  cases  when  handling  constant  strings  it  is  easier  to  convert  them  into  enumerated 

strings.  Although  this  removes  replication  information  it  simplifies  the  evaluation  process  and 
is  therefore  desirable.  The  following  function  defines  the  conversion 

Conv-String:  kConst  —  kConst 

Conv-StHng(c)  A 
cases  c  of 

string(_, .)  -*  c 

conststring(s«e,  enum  (typeno,  tagno))—  string(  typeno,  [tayno*,ie]) 
others  constquery(  Type-Of -Const(c)) 

end 


Within  the  Kernel  there  axe  a  number  of  Built-in  Operators  which  are  optimal  in  their  handling 

of  ambiguity.  The  following  function  checks  that  the  biop  name  nm  is  one  of  them. 

Optimal- Biop-.  Biopname  —  B 
Optimal- Biop(nm)  A 

(nm  =  EQ.US)  v  (nm  =  GT.US)  V  (nm  =  GE.VS)  v  (nm  =  LT.US)  V  (nm  =  LE.US) 
V  (nm  =  EQ.S)  V  (nm  =  GT.S)  V  (nm  =  GE.S)  V  (nm  =  LT.S)  V  (nm  =  LE.S) 

Within  the  Kernel  it  is  possible  to  have  an  aliased  type.  Before  any  checks  on  the  type  can 

be  performed  the  alias  name  must  be  removed  by  means  of  the  following  function 
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Get-Type  :  kType  — *  k Type 


Get-Type(ty)  A 
eases  ty  of 

types(  ktype  t])  —  types([Get-  Type{ktype2),  ■  •  •,  Get-Type(ktypet)}), 

typenam e(.,  ktype)  —  Get- Type (ktype) 

»tringtype( size ,  ktype)  —  stringtype( size,  Get- Type(ktype)) 
others  ty 


end 


The  equality  of  two  types  can  be  confirmed  by  the  following 

Type- Equals  :kType  x  kType  — *  B 

Type-Equals(ty2,ty2)  A 

cases  ( Get-Type(tyi ),  Get-Type(ty2))  of 

(  typeno(typenoi),  typeno( typeno2))  —  (iypenoi  =  typeno2) 

(  stringtype(si,  tn2),  stringtype(s2,  tn2))  —  (sj  =  s2)  A  Type-Equals(tnl,  tn2) 
(  type*^,...,**]),  types([si,...,sj]))  *  A  Type-Equals(t,,  s,) 

(  typevoid,  typevoid)  — *  true 

others  false 

end 


In  some  expressions  the  ELLA  unknown,  or  query,  value  can  be  passed  into  its  input.  In 
certain  cases,  e.g.  RAM,  this  needs  to  be  checked  for  so  that  an  appropriate  query  value  can 
be  returned.  The  following  function  checks  to  see  whether  a  constant  expression  contains  any 
part  which  has  a  query  value. 

Has- Query.  kConst  — *  B 

Has-Query(c)  A 
cases  c  of 

consts([d,  •••,£*])—  \/  Has-Query[ct ) 

•={!*> 

const string(_,  c)  -*  Has-Query(c) 

constassoc(_,  c)  — »  Has-Query(c) 

constquery(-)  -♦  true 

others  false 

end 


ELLA  integers  are  tagged  integers  where  the  value  of  an  integer  signal  is  represented  as  an 
enumerated  data  structure  with  a  tag  number  offset  from  the  types  lower  bound  value.  Thus 
some  constructs,  e.g.  dynamic  indexing,  will  need  to  know  the  range  of  an  integer  signal  so 
that  the  appropriate  offset  can  be  used.  The  following  function  looks  in  the  environment  type 
declarations  and  returns  the  type  information  for  the  integer  in  question 
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Find- Integer-  Type\  kType  — *  Tagname  x  Lowerbound  x  Upperbound 

Find-Integer-Type(ktype)  A 

let  typeno (typeno)  =  Get-Type(ktype)  in 
case*  ( Env  Typedec )  [  typeno]  of 
typedec(-,  ellaint(f,  /,  u))  — *  t ,  /,  tt 

end 


In  some  functions,  eg.  BIOPs,  it  is  necessary  to  ensure  that  the  input  types  supplied  are  from 
a  two  valued  enumerated  type.  This  is  particularly  important  for  bit  string  operations  where 
the  type  must  be  a  two  valued  character  type.  It  can  be  noted  that  two  valued  ELLA  integers 
are  not  allowed  in  the  BIOPs  and  hence  they  need  not  be  checked  for  by  this  function.  The 
complete  function  is  therefore 


Check-  Two-  Val  :  kType  — >  B 

Check- Two- Val(ty)  A 

let  typeno( typeno)  =  Get-Type(ty)  in 
eases  (EnvTypedec)[typeno].new  of 
tags(  TagSeq)  — *  len  (  TagSeq)  =  2 
chars (Cftarseg)  — •  len  ( CharSeq)  =  2 

end 


The  REFORM  function  reforms  one  type  structure  into  another.  In  order  for  this  to  be  allowed 
the  types  must  flatten  to  the  same  basic  structure.  The  following  function  takes  a  structured 
constant  expression  and  flattens  it  to  its  lowest  form.  The  REFORM  evaluation  function  will 
then  build  up  the  new  type  from  this  flattened  form,  via  comparison  with  the  desired  output 
type. 

Flatten- const:  kConst  — *  kConst * 

Flatten-const(c)  A 
cases  c  of 

consts([ci,  •  •  • ,  Cfc] )  — *  Flatten- Const ( cj )  n  Flatten-Const(ci) 

others  [c] 

end 


The  following  function,  which  converts  a  constant  expression  into  a  unit  expression,  will  be 
used  by  the  evaluation  function  for  the  built  in  function  bodies  at  the  outer  level.  This  is 
needed  to  reduce  the  necessity  for  two  different  evaluation  functions  for  the  built  in  function 
bodies.  Namely,  one  for  function  calls  with  unit  inputs  and  one  for  outer  function  instances 
with  constant  inputs.  Since  the  basic  evaluation  for  the  built  in  functions  would  be  equivalent 
in  both  cases  we  can  combine  their  calling  function  by  using  this  convert  function. 
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Convert- Const- Unit  :  kConst  — *  kUnit 

Convert- Const- Unit(c)  ^ 
cates  c  of 

const>tring(atze,  Ci)  — *  unit  string  (size,  Convert-Const-Unii(ci)) 
consts([ci,  •••,€*])  —i ►  vmits([Convert-Const-Unit(ci),--- , 

Convert-  Const-  Unit  ( c* )] ) 

const assoc(enum,  Ci)  — *  unitassoc(emzm,  Convert- Const- Unii(ci)) 
constquery(fy)  — *  unitquery(ty) 

constvoid  — *  unitvoid 

others  c 


end 


4.4  Unit  Evaluation 

In  this  section  functions  are  defined  which  will  be  used  by  the  main  evaluation  function  for 
unit  expressions.  It  can  be  noted  that  the  static  semantics  of  Core  ELLA  (see  [MH91])  ensures 
checks  on  the  bounds  of  arrays.  Therefore  in  the  functions  defined  in  this  section  it  will  be 
assumed  that  such  items  need  no  further  checking.  Some  functions  will  however  return  the 
query,  or  unknown,  value  for  the  cases  when  the  signal  input  is  undefined. 

The  value  of  a  signal  declaration  is  given  by  the  following  function.  In  the  Kernel  an  input 
signal  is  denoted  by  the  structure  input  in  the  signal  declaration  field  of  a  function  declaration. 
Unlike  K2  there  is  no  unique  input  field  and  hence  an  appropriate  index  needs  to  be  generated 
in  the  case  of  structured  inputs.  In  the  case  of  an  input  signal  the  value  of  val  is  the  unique 
input  which  has  the  correct  ‘time’  value.  Evaluate-Index  is  then  called  if  a  function  specification 
has  more  than  one  named  input  terminal  and  the  appropriate  value  from  the  input  structure  is 
sort.  If  a  signal  is  not  an  input  then  the  function  returns  the  value  of  its  associated  expression. 

Sig:  N  x  Signaldec *  X  Input *  x  Time  — *  kConst 

Sig(signo,  sigdec,  inputs ,  time)  A 
let  signaldec  =  sigdec[signo ]  in 
if  signaldec. unitor-input  =  input 

then  let  val  =  «(i  £  ind*  inputs)  •  inputsfi ]  =  time )  in 
if  (len  sigdec  >  1)  A  sigdec[2].unitorinput  =  input 
then  Utwtfuafe-/ndez(t>a/[l],  signo,  signaldec. type) 
else  t>a/[l] 

else  Evaluate- Unit(signaldec. unitor-input ,  sigdec,  inputs,  time) 

We  now  define  a  function  which  delivers  the  value  of  the  extracted  part  of  an  associated  type 

Evaluate- Extract:  kConst  X  kEnum  -*  kConst 

Evaluate-Eziract(c,  enum)  A 
cases  c  of 

conata»«oc(enum,  const)— ►  const 
others  constquery(  Type-Of-Const(c)) 


end 
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To  obtain  the  value  of  a  structure  which  has  been  indexed  we  need  the  following  function.  Since 
ind  is  a  static  index  no  checking  on  its  value  is  needed  here  since  this  would  have  occurred  at 
the  static  semantic  stage. 

Evaluate-Indez:  kConst  x  N  x  kType  —*  kConst 

Evaluate-Indez(c ,  ind,  ty)  A 
cases  c  of 

string {typeno,  [tyi,  ■  ••,%])  -*  enum( typeno,  tginJ) 
conststring(_,  const)  — ►  const 

consts ([«!,  — ,  c*])  -4  cini 

others  constquery(  ty) 

end 


To  obtain  the  result  of  a  structure  which  has  been  trimmed  we  have  a  similar  function  to  that 
of  an  index,  namely 

Evaluate- Trim:  kConst  x  N  x  N  x  kType  — *  kConst 

Evaluate- Trim(c,  ind  1,  ind 2,  ty)  A 
cases  c  of 

string  (typeno, \tgi,  ••• ,  tgtJ)  ->  string(  typeno,  [tginJ  lt  ■  •  • ,  tgini2]) 
conststring(.,  const)  — *  conststring( tnd2-mdl  +  1,  const) 

consts([ci,  •  •  • ,  c* ] )  -*  consts([cinii,---,c<ni2]) 

others  constquery(  ty ) 

end 


To  obtain  the  value  of  a  structure  which  has  been  indexed  dynamically  we  first  locate  the 

appropriate  integer  type  declaration,  calculate  what  corresponding  static  index  is  required  and 
then  perform  that  index.  If  the  signal  which  is  indexing  is  the  query  value  then  a  query  result 
is  returned. 

Evaluate- Dyindez:  kConst  x  kConst  x  kType  — *  kConst 

Evaluate- Dyindez(ci,  c2,  ty)  A 
cases  c2  of 

constquery(-)  — *  constquery(ty) 
others  let  enum (typeno,  tagno)  =  c2  in 

let  (.,  iti>6,  ttp6)  =  Find- Integer- Type (  typeno( typeno))  in 
Evaluate-Indez{c\,lwb  +  tagno- 1,  ty) 


end 


The  replacing  of  an  element  of  a  structure  by  a  new  element  whose  location  is  determined  by 

a  dynamic  index  is  carried  out  by  the  REPLACE  primitive.  The  semantics  of  REPLACE  can 
be  given  by  the  following  function 
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Evaluate- Replace:  kConst  x  kConst  x  kConst  — *  kConst 

Evaluate- Replace ( ci,  c3,  C3)  A 
cases  Ci  of 

constquery(-)  — *  constquery(fy) 
others  let  enum(  typeno,  tagno)  =  c3  in 

let  (.,  Iwb,  upb)  =  Find- Integer- Type (  typeno (typeno))  in 
let  ind  =  Iwb  +  tagno- 1  in 
cases  C]  of 

stringCtypeno,^!,---,^])-*  let  c3  =  enum (typeno,  tag)  in 

string  [typeno,  •  •  •,  tgini.i,  tag,  tgind  +  1,  ■  •  • 
conststring(st'ze,  const)  — *  let  const  =  enum( typeno,  tp)  in 

let  string  =  string(  typeno,  [*<?*’“])  in 
Evaluate- Replace  (string,  ci,  C3) 

consts([ci,---,Ci])  -*  consts([ci,---,cin<i.i,C3,c,Brf  +  1,---,Ci]) 

others  constquery( Type-of-Const(ci)) 

end 

end 


Concatenation  can  be  split  into  two  parts,  namely  strings  and  structures.  The  concatenation 
of  structures  is  defined  by 

Cone-Const:  kConst  x  kConst  x  kType  — ♦  kConst 

Conc-Const(c\,  Cj,  ty)  A 
cases  Cj  of 

consts(csegi)  — »  cases  cj  of 

consts(cseg2)  — *  if  Type-Equals(  Type-Of-Const(cseqi[\}), 
Type-Of-Consl(cseqi[l])) 

then  consts( cseqi  ^  cseqi) 
else  if  Type-Equals(Type-Of-Consi(cseqi[\}), 
Type- Of- Const  ( C2 ) ) 
then  consts(cse5!  ^  [02]) 

else  consts([ci]  ^  cseqi ) 
constquery(-)  — *  constquery(ty) 
others  consts( cseft  ^  [C2]) 

end 

constquery(-)  — *  constquery(ty) 
others  consts([ci]  n  cseqi ) 

end 


To  obtain  the  value  of  concatenating  two  string  structures  we  have 
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Cone-String:  kConst  x  kConst  x  kType  — *  kConst 

Conc-String(ci,  c2,  ty)  A 
case*  (ci,  c2)  of 
(  string(ty,  ,  tglt]) 

string(  ty,  [tg22,  •  •  • ,  /p2m]))  -*  string(  ty,  ,  tglk,  tgli,  •  ■  • ,  <$2m]) 

(  string(ty,[tg\u---,tglk}) 

cons t string (_,  _))  -*  Conc-String(a,  Conv-String(cj)) 

(  conststring(_,.),_)  — *  Conc-String(  Conv-String(c2),  c2) 

others  constquery(fy) 

end 


The  evaluation  of  a  Case  statement  is  defined  by  the  following  functions  where  the  result 

delivered  is  the  query  value  whenever  the  input  chooser  has  an  unknown  element.  The  function 
Match  compares  the  chooser  value  against  all  alternatives  in  the  Case  statement  and  is  defined 
as 


Match:  kConst  x  kConstset  — *  B 

Match(const,  constset)  A 

cases  (const,  constsel)  of 
(  enum(.,tognoi),  enum(. ,  tagno2)) 

(  string^,  [tagnon,--.,  /a<?nou]), 
string(.,  [tagno21,  •  • /aSno2t])) 

(  constassoc(  enum(. ,  tagnoi),  consti), 

constsetassoc(  enum(.,  tagno2),  constset2)) 

(  consts([ci,  •  •  • ,  c*]), 

constsets([csi,  •  •  • ,  «*])) 


(_,  constsetalts([csai,  •  •  • ,  esa*])) 

(  conststring(sue8,  c„), 

const  set  string  (sire  4,  eset*)) 

(  conststring( size,  c),  string(ty, 

(  string(ty, ,  [ig\,  •  •  • ,  h?t]), 
constsetstring(  size,  cset)) 

(.,  constsetany(fype)) 
others  false 

end 


iagno\  =  tagno2 

A  ( tagnou  =  tagno2 ,) 

tagnoi  =  tagno2  A 
Match(constj,  constsetj) 

A  Match[c„  cs ,) 
i={x..t) 

\J  Match(const,  esa,) 

(sire*  =  size*)  A  Match(cB,  cselt) 
tgk})  -*  (size  =  k) 

A  Match( c,  enum( ty,  tgi)) 
i={i..k) 

— *  ( size  ~  k) 

A  Match(  enum(ty,tg,),cset) 
— <  true 


The  evaluation  of  a  Case  statement  is  defined  as 
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Evaluate- Case:  kConst  x  Case *  x  kUnit  x  Signaldec'  — *  fcl/nif 

Evaluate-Case(chooser ,  cseq ,  unit,  sigdecs )  A 

if  3(i  £  inds  c*e^)  •  Match(chooser ,  cseq\i].constset) 
then  let  match  =  t(i  £  inds  cse§)  •  Match(chooser,  cseg[:].constset)  in 
let  case{_,tt)  =  cseg[matc/i]  in 
u 

else  if  Eas-Query(chooser) 

then  unitquery(  Type-Of-Unit(unit,  sigdecs)) 
else  unit 


4.5  Evaluation  of  Primitive  Functions 

This  section  defines  the  semantics  of  the  primitive  function  bodies.  The  definition  of  the  delays 
and  sample  function  have  been  taken  from  [HWM90a]  with  the  definition  of  the  Biops  taken 
from  [Tai88a]. 

To  obtain  the  sequence  of  all  relevant  input  values  to  any  delay  we  need  a  function  similar 
to  Update-Inputs.  This  function,  called  Get-Delay-Input ,  differs  from  Update-Inputs  since  it 
does  not  necessarily  have  to  go  back  to  time  zero.  This  is  because  a  Delay  has  a  finite  his¬ 
tory  and  hence  there  is  a  maximum  depth  of  time  that  needs  to  be  considered.  The  function 
Get- Delay- Input  therefore  collects  together  only  those  inputs  to  a  Delay  which  will  be  needed 
for  evaluation  of  a  delay. 

Gei-Delay-Inpui:  kUnit  x  Signal *  x  Input *  x  kConst  x  Time  X  Time  —  kConst* 

Get-Delay-Input(u,  signals,  inputs,  initial,  t,  s)  A 
if  t  =  s 
then  [] 
else  if  t  <  0 

then  [initial] /_v  Get-Delay-Input(u,  signals,  inputs,  initial,  t-l,  s) 
else  [Evaluate-Unit(u,  signals,  inputs,  <)]r‘ 

Get-Delay-Input(  u,  signals,  inputs ,  initial ,  t-l,  s) 

The  function  Get-Delay-Input  is  now  incorporated  into  the  following  function  which  evaluates 
the  result  of  the  ambiguity  delay  primitives. 

Evaluate- Delay:  Fnhody  x  Signaldec *  x  Input *  x  kUnit  x  Time  — <  kConst 

Evaluate- Delay  (delay,  sigdec ,  inputs,  unit,  time)  A 
let  delay(initial,  m,  ambig,  n)  =  delay  in 
let  r  =  [Mm(l,  to),  •  •  •,  m)  in 
if  time<  0 
then  initial 

else  let  dinput  =  Get- Delay- Input(unit,  signals,  inputs,  initial,  time-1,  time-m-n)  in 
if  3  j  €  r-  V  i  £  [l..n]dinput[n  +  i-j]  =  dmput[n] 
then  dinput[n] 

else  if  3  j  £  r-  V  »'  £  [l..n]dinpu<[n  +  i-j]  =  dinput\n]  V  constquery(_) 
then  eonstquery(  Type-Of-Const(ambig)) 
else  ambig 
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Ad  inertial  delay  behaves  in  a  different  way  to  an  ambiguity  delay  in  that  it  filters  out  any 

input  which  is  not  stable  for  at  least  the  length  of  the  specified  delay  period  (see  [HWM90a] 
for  a  complete  definition  of  the  delay  primitive).  The  resulting  evaluation  function  is  given  by 

Evaluate- Idelay:  Fnbody  x  Signaldec *  x  Input *  x  kUnit  x  Time  — *  kConst 

Evaluate-Idelay( idelay,  sigdec ,  inputs,  unit,  time)  A 
let  idelay ( initial,  n)  =  idelay  in 
if  time<  0 
then  initial 

else  let  dinput  =  G  et- Delay- Input  ( unit,  signals,  inputs,  initial,  time-l,  time-n)  in 
if  V  t  €  [l..n]dinpuf[l]  =  dtnpu<[i] 
then  dinput[n] 

else  if  V  t  6  [l..n]dinpuf[l]  =  dinpufji]  V  constquery(-) 
then  constquery(  Type-of-Consi(initial)) 
else  Evaluate- Idelay  (idelay ,  sigdec,  inputs,  unit,  time-l) 


The  REFORM  construct  is  a  way  of  taking  a  structured  input  and  restructuring  it.  The  function 
for  performing  this  is  defined  below  where  cseq  is  the  input  structure  of  constant  values,  which 
have  been  flattened  to  its  lowest  level. 

Evaluate- Reform:  kConst *  x  kType  — *  kConst *  X  kConst 

Evaluate- Reform( cseq,  t)  A 

if  len  cseq  =  1  A  //as-Query(cseg[l]) 
then  constquery(t) 
else  cases  Get-Type(t)  of 

types([<i,  •  •  •,  /*])  — •  let  es.i  =  cseq  in 

let  ( cs,,c ,)  =  Evaluate-ReJorm(cs,.\,t,)  i  £  {l..n}  in 
(cs„,  consts([c1,---,c„])) 

others  (tl  cseq,  hd  cseq) 
end 


The  SAMPLE  construct  is  a  sample-and-hold  primitive  which  samples  its  input  at  specified 
intervals  and  holds  that  value  over  the  interval.  The  formal  definition  of  this  construct  can  be 
given  by 

Evaluate- Sample:  Fnbody  x  Signaldec *  X  Input *  X  kUnit  X  Time  — >  kConst 

Evaluate-Sample(sample,  sigdec,  inputs,  unit,  time)  A 
let  sample( infernal,  initial,  skew)  =  sample  in 
if  time<  0 
then  initial 

else  let  t'  =  t-((t-skew)MODinterval)  in 
Evaluate- Unit(unit,  sigdec,  inputs,  t') 


The  RAM  construct  is  a  general  read/write  memory  device.  The  size  of  the  Ram  is  specified  by 


Kernel  Dynamic  Semantics 


23 


its  enclosing  function  definition,  elements  of  which  can  be  written  to  at  each  simulation  time.  In 
order  to  define  the  evaluation  of  a  Ram  for  a  given  address  two  auxiliary  functions  are  needed. 
The  first  function,  G et-Ram-History ,  behaves  like  Update-Inputs  and  calculates  all  the  inputs 
to  the  Ram  from  time  zero.  The  function  is  similar  to  Update-Inputs  but  uses  concatenation 
since  there  is  no  local  function  calls  within  a  RAM  function 

Get-Ram-History:  kUnit  X  Signaldec*  X  Input*  X  Time  — *  Input* 

Get-Ram-History(unit ,  sigdec ,  inputs ,  time)  A 
if  time  =  0 
then  [] 

else  [(Evaluate-  Unit(unit,  sigdec ,  inputs ,  time),  time)]  ^ 

Get- Ram- History  (unit,  sigdec,  inputs,  time- 1) 


The  following  function  searches  through  a  sequence  of  inputs  to  a  ram  for  the  desired  read 
address.  Since  the  list  will  be  traversed  starting  at  the  most  recent  entry  (in  time)  the  first 
value  located  with  the  correct  read  address  will  be  the  last  input  to  that  address.  Hence  the 
explicit  interrogation  of  time  is  not  required. 

Search-History:  Input*  x  kConst  X  kConst  — »  kConst 

Search-History(history,  initial,  read)  A 
if  history  =  [] 
then  initial 

else  if  (hd  histoj~y)\l]  =  consts([d,  read,.,  enum(_,l)]) 
then  d 

else  if  (hd  hts/on/)[l]  —  constsf(_,  eonstquery(-),  _,  constquery(-)])  V 
consts([_,  constquery(_), _,  enum(_,l)])v 
consts([  eonstquery(-),  read,.,  constquery(-)]) 
then  constquery(  Type-Of-Const(initial)) 
else  Search-HisUry(\\  history,  initial ,  read) 


The  above  two  functions  can  now  be  combined  into  the  RAM  evaluation  function  which  is 
defined  as 

Evaluate- Ram:  kConst  x  Signaldec*  x  Input*  x  kUnit  x  Time  — *  kConst 

Evaluate- Ram(initial ,  sigdec,  inputs,  unit,  time)  A 

let  consts([data,  write,  read,  enable])  -  Evaluate-  Unit(unit,  sigdec,  inputs,  lime)  in 
if  Get- Type  (enable)  =  enum(_,l)v  Type-  Equals(write,  read) 
then  data 

else  if  Has- Query  (read)  V  Has- Query  (write)  V  Has-Query(enable) 
then  constquery(  Type- Of- Const  (initial)) 

else  let  ramhistory  =  Get- Ram- History  (unit,  sigdec,  inputs,  time)  in 
Search- History(ramhistory,  initial,  read) 


Within  the  Kernel  there  are  a  number  of  Built  in  Operators  (BIOP)  which  perform  operations 
on  enumerated  types  and  bit  strings.  In  the  following  section  we  define  the  semantics  for  each 
BIOP,  here  we  merely  state  the  enclosing  calling  function  for  a  BIOP 
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Evaluate-Biop:  Fndec  X  kConst  — »  kConsi 
Evaluate-Biop(fdec ,  const)  A 

if  Has- Query  (const)  A  ->  Optimal-Biop(fdec.fnbody.biopname) 
then  constquery(Get-Type(/<iec.ottfpu«ypc)) 
else  let  intype  =  Get-Type(fdec.inputtype)  in 
let  outtype  =  Get-Type(fdec.outputtype)  in 
cases  fdec.fnbody.biopname  of 


AND 

OR 

XOR 

NOT 

EQ 

GT 

GE 

LT 

LE 

EQ.US 

GT.US 

GE.US 

LT.US 

LE.US 

EQ.S 

GTS 

GES 

LTS 

LES 

SL 

SR.US 

SRS 

PLUS. US 

MIN  US. US 

NEGATE. US 

TIMES. US 

DIVIDE.  US 

SQRT.US 

MOD.  US 

RANGE. US 

PLUS.S 

MINUS.S 

NEGATES 

TIMES  S 

DIVIDES 

ABS.S 

MODS 

RANGES 

TRANSFORM. US 

TRANSFORMS 


Biop-And(const ,  intype,  outtype) 
Biop-Or(const,  intype ,  outtype) 
Biop-Xor(const,  intype,  outtype) 
Biop-Not(const,  intype,  outtype) 
Biop-Eq(const,  outtype) 
Biop-Gt(const,  outtype) 
Biop-Ge(const,  outtype) 
Biop-Lt(const,  outtype) 
Biop-Le(const ,  outtype) 

Biop-  USeq(const,  outtype) 
Biop-USgt(const,  outtype) 

Biop-  USge(const,  outtype) 

Biop- USlt(const,  outtype) 

Biop-  USle(const,  outtype) 
Biop-Seq(const,  outtype) 
Biop-Sgt(const,  outtype) 
Biop-Sge(const,  outtype) 
Biop-SU(const ,  outtype) 

*  Biop- Sle(const,  outtype) 

>  Biop-SL(con$t,  outtype) 

-  Biop-SRus(const,  outtype) 

>  Biop-SRs(const,  outtype) 

>  Biop-  USplus(const,  outtype) 

»  Biop-USminus(const,  outtype) 

>  Biop-USneg(const,  outtype) 

>  Biop-UStimes(const,  outtype) 

>  Biop-USdivide(const,  outtype) 

>  Biop-USsqrt(const,  outtype) 

>  Biop- USmod(const,  outtype) 

>  Biop- USrange(const,  outtype) 

>  Biop- Splus(const,  outtype) 

>  Biop-Sminus(const,  outtype) 

>  Biop- Sneg(const,  outtype) 

>  Biop- Stimes(const,  outtype) 

>  Biop-Sdivide(const,  outtype) 

>  Biop-Sabs(  const,  outtype) 

*  Biop- Smod(const,  outtype) 

*  Biop-Srange(const,  outtype) 

*  Biop-TUS(const,  intype,  outtype) 

»  Biop- TS (const,  intype,  outtype) 


end 
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4.6  Built-in  Operators 

In  this  section  we  present  the  semantics  of  all  the  Built-in  Operators  included  within  the  Kernel. 
In  particular  these  definitions  express  the  way  in  which  the  type-ambiguity  value  is  handled. 
For  a  fuller  description  of  all  ELLA’s  BIOPs  see  [Tai88b], 

Throughout  this  section  it  is  assumed  that  the  input  to  a  BIOP  is  a  constant  expression, 
called  ‘c\  Where  necessary  the  input  and  output  type  of  a  BIOP  are  passed  into  the  semantic 
definitions  and  in  those  cases  they  are  referred  to  as  ‘ intype '  and  'outtype',  respectively. 


4.6.1  Auxiliary  Functions 

This  section  defines  some  functions  which  are  necessary  for  the  definition  of  the  BIOPs. 


Enumerated  type  selection: 
e2b:  kConst  — *  B 
e2b(c) A 

if  Check-  T wo-  Val  (  Type-  Of-  Const  ( c ) ) 
then  c  =  enum(.,  2) 
else  _L 


b2et:  B  — *  kConst 

b2et(6)  A 

if  Check-  T wo-  Val  ( t ) 

then  let  typeno(  typeno)  =  Get-Type(t)  in 
enum(  fypeno,  if  b  then  2  else  1) 
else  constquery(t) 


Bit-String  conversion:  (functions  not  shown) 


Jnt-2-Sbit(n,i)  =  Integer  i  to  signed  bit  string  of  length  n 

Jnt-2-Ubit(n,  i)  =  Integer  i  to  unsigned  bit  string  of  length  n 

Sbit-2-Int(b)  =  Signed  bit  string  b  to  integer  value 

Ubit-2-Int{b)  =  Unsigned  bit  string  6  to  integer  value 

Unsigned  bit  string  evaluation: 
ust:  kConst  — *  N 
ust(c)  A 

let  stringtype(n, .)  =  Type-Of-Const(c)  in 
let  string{.,  [<<&,*  •  •,  <<?„])  =  Conv-String(c)  in 
let  bit{  =  f<7,-l  V  :  £  { 1 .. n }  in 
Ubit-2-Int(" biti  •  •  •  bit„) 
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ust'V  N  — »  kConst 
ust'1^®)  A 

let  stringtype(n,  ty)  =  t  in 

let  typeno (typeno)  =  Get-Type(ty)  in 

ift><2n  +  1 

then  let  "bi  •  •  •  6"  =  Int-2-Ubit(n,  v)  in 
let  tgi  =  6^  +  1  V  :  €  {l..n}  i" 
string( typeno,  [tyi,  •  • tfl„]) 

else  constquery(f ) 


Signed  Bit  string  evaluation: 
sst:  kConst  — *  N 
sst(c)  A 

let  stringtype(n, .)  =  Type-Of-Const(c)  in 
let  string (-,  [<$i,  •••,<$„])  =  Conv-String(c)  in 
let  bitj  =  tgi- 1  V  t  €  {l..n}  in 

Sbit-2-Int("bih  •  •  •  tit") 


sst'V  \  — *  kConst 
ssf’tjr)  A 

let  stringtype(n,  ty)  =  t  in 

let  typeno( typeno)  =  Get-Type(ty)  in 

if  -2n  l  <  v  <  2n'1 

then  let  " b\  •  •  •  6"  =  Int-2-Sbit(n,  v)  in 
let  tg,  -  b,  +  1  ViG  { 1  ..rz}  in 
st ring ( typeno ,  [tyi,  •  •  • ,  <?„]) 
else  constquery(t) 

Quotient  Evaluation:  (quotient  function  not  shown) 

OVER:  N  x  N  —  N 
A 

if  0 

then  “Quotient  of  nj  over  n% 
else  JL 


4.6.2  Biop  Evaluation 


4.6. 2.1  Logical  Operators 
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Biop- And:  kConst  x  kType  x  k Type  — •  kConst 

Biop- And(c,  intype,  outtype)  A 

if  Get-Type(intype)  =  types([_,.]) 
then  Biop-EAnd(c,  outtype) 
else  Biop-SAnd(c ,  outtype) 


Biop- Or:  kConst  x  kType  X  kType  — *  kConst 

Biop-Or(c ,  intype ,  outtype)  A 

if  Get- Type  (intype)  =  types([_,.]) 
then  Biop-EOr{c,  outtype) 
else  Biop-SOr(c,  outtype) 


Biop- X or:  kConst  x  kType  x  kType  — *  kConst 

Biop-Xor(c,  intype,  outtype)  A 

if  Get-Type(intype)  =  types( [-,-]) 
then  Biop-EXor(c,  outtype) 
else  Biop-SXor(c,  outtype) 


Biop-Not:  kConst  x  kType  x  kType  —  kConst 

Biop-Not(c,  intype,  outtype)  A 

if  Get-Type(intype)  ?  stringtype(_, .) 
then  Biop-ENot(c,  outtype) 
else  Biop-SNot(c,  outtype) 

Logical  Operators  on  enumerated  values: 

Biop-EAnd:  kConst  x  kType  —*  kConst 

Biop-EAnd(c,  outtype)  A 
let  consts(ciC2)  =  c  in 

if  Check- Two-  Val ( Type- O/- Const ( ci ) )  A  Check-Two-  Val{  Type-Of-Const(c,))  A 
Check-  Two-  Val  ( outtype ) 
then  b2eou,,vpf(  e2b(ci)  A  e2b(c2)) 
else  constquery(ouUype) 


Biop-EOr:  kConst  X  kType  — *  kConst 

Biop-EOr(c,  outtype)  A 

let  consts(ci,  c2)  =  c  in 

if  Check- Two- Val(  Type-Of-Const(c\))  A  Check- Two- Val {  Type- Of- Cons t{c2))  A 
Check-  Two-  Val(outiype) 
then  b2eou<im(  e2b(c2)  V  e2b(c2)) 
else  constquery( outtype) 
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Biop-EXor:  kConst  x  kType  — *  kConst 

Biop-EXor(c,  outtype)  A 
let  consts(ci,  C2)  =  c  in 

if  Check-Two-Val(Type-Of-Const{c\))  A  Check- Two-  Val(  Type-Of-Const(c2))  A 
Check -  Two-  Val(outtype) 
then  b2eou(l|r,'(  e2b(c2)©  e2b(c2)) 
else  const query( outtype) 


Biop-ENot :  kConst  x  kType  — *  kConst 
Biop-ENot(c,  outtype)  A 

if  Check-Two-Val(Type-Of-Const(c))  A  Check-Two-Val(outtype) 
then  b2eouttvpf(-'  e2b(c)) 
else  constquery (outtype) 

Logical  Operators  on  unsigned  strings: 

Biop-SAnd:  kConst  x  kType  — *  kConst 

Biop-SAnd(c,  outtype)  A 

let  consts(ci,  C2)  =  C  in 

let  stringtype(n, .)  =  Type-Of-Const(c\)  in 
let  stringtype(n, .)  =  Type-Of-Const{ci)  in 
let  stringtyp e(n,  ty)  -  outtype  in 
let  typeno (typeno)  =  Get-Type(ty)  in 

string( typeno,  ([  b2e(l)(  e2b(cj[l])A  e2b(c2[l])), •  •  • ,  b2e,„(  e2b(ci[n])  A  e2b(c2[n]))])) 


Biop-SOr:  kConst  x  kType  — *  kConst 

Biop-SOr(c ,  outtype)  A 

let  consts(ci,  c2)  =  c  in 

let  stringtype(n, .)  =  Type-Of-Const(c^)  in 
let  stringtype(n, -)  =  Type-Of-Consi(c2)  in 
let  stringtype(n,  ty)  =  outtype  in 
let  typeno  (typeno)  =  Get-Type{ty)  in 

string  (typeno,  ([  b2et„(  e2b(ci[l])  V  e2b(c2[l])),  •  •  •,  b2ety(  e2b(c2[n])  V  e2b(c2[n]))])) 


Biop-SXor:  kConst  x  kType  — *  kConst 

Biop-SXor(c,  outtype)  A 

let  consts(ci,  c2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Const(ci)  in 
let  stringtype(n,.)  =  Type-Of-Const[c2)  in 
let  stringtype(n,  ty)  =  outtype  in 
let  typeno  (typeno)  =  Gel-Type(ty)  in 

string( typeno,  ([  b2e,v(  e2b(ci[l])©  e2b(c2[l])),  ■  •  • ,  b2e<y(  e2b(ci[n])®  e2b(c2[n]))])) 
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Biop-SNot:  kConst  x  kType  — *  kConst 

Biop-SNot(c,  outtype)  A 

let  stringtype(n, .)  =  Type-Of-Const{c)  in 
let  stringtyp e ( n,  ty)  =  outtype  in 
let  typeno( typeno)  =  Get-Type(ty)  in 

string(  fypeno,  ([  b2e<v(->  e2b(c[l])),---,  b2e,„(-'  e2b(c[n]))])) 


4.6.2. 2  Relational  Operators  on  Enumerated  Types 


Biop-Eq :  kConst  x  kType  — *  kConst 
Biop- Eq(c,  outtype)  A 

let  consts(  enum(_,  tagi),  enum(.,  tag?))  =  c  in 
if  Check-  Two-  Val(outtype) 
then  h2et(tagi  =  tag^) 
else  constquery(ouffype) 


Biop-Gt:  kConst  x  kType  — •  kConst 
Biop-Gt(c,  outtype)  A 

let  consts(  enum(.,  fa<?a ),  enum(.,  tagi))  =  c  in 
if  Check- Two- Val(outtype) 
then  b2e<)U((Vpf (fapi  >  tag2) 
else  const  query  (out  type) 


Biop- Ge:  kConst  x  kType  — ♦  kConst 
Biop-Ge(c,  outtype)  A 

let  consts(  enum(_,  fa<7i),  enum(.,  ta^))  =  c  in 
if  Check-Two-Val(outtype) 
then  b2eouttyr'(tagi>  iag3) 
else  constquery(ouftype) 


Biop- Lt:  kConst  x  kType  — *  kConst 
Biop-Lt(c,  outtype)  A 

let  consts(  enum(_,  faji),  enum(.,  faff:))  =  c  in 
if  Check- Two-  Val(outtype) 
then  b2e((<<J0i  <  tag 2) 
else  constquery(ouffype) 
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Biop-Le:  kConst  x  kType  — *  kConst 
Biop-Le(c ,  outtype)  A 

let  consts(  enum(^loji),  enum(.,  tag2))  =  c  in 
if  Check-Two-Val(outtype) 
then  b2eouUyj)t(tagi<  iag2) 
else  const  query  ( on  ttype) 


4.6. 2. 3  Relational  Operators  on  Unsigned  Bit  Strings 


Relational  optimisation  test  on  unsigned  bit  strings: 

B-V-Test:  N  x  N  x  kConst  -*  B 
B-U-Test(m ,  n,  c)  A 

(m  >  n)  A  (  string( -,  [ tji,  •  •  • ,  tgm])  =  Conv-String(c))  A 
(3  t  €  {l..(m-n)}-  =  2) 


Biop-VSeq:  kConst  x  kType  — *  kConst 

Biop-USeq(c,  outtype)  A 

let  consts(ci,  C2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Consl{c j)  in 
let  stringtype(m, _)  =  Type-Of-Const(c2 )  in 
if  B-U-Test(m,  n,  c2)  v  B-U-Tesl(n ,  m,  c2) 
then  b2eau((w,t (false) 
else  if  Has- Query  (c2)  V  Has-Query(c2) 
then  constquery( outtype) 
else  b2eout,vpe(  ust(cj)  =  ust(c2)) 


Biop- USgt:  kConst  x  kType  —  kConst 

Biop-USgt{c ,  outtype)  A 

let  consts(cj,  c2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Const(c2)  in 
let  stringtype(m, .)  =  Type-Of-Const(c2)  in 
if  B-U-Test(m,n,c2) 
then  b2eeU(typ< (false) 
else  if  B-U-Test(n,m,c2) 
then  b2esu((vp((true) 
else  if  Has- Query ( c2)  V  Has-Query(c2) 
then  constquery (outtype) 
else  b2e„.t,vye(  ust(cj)  >  ust(c2)) 
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Biop-VSge:  kConsi  x  k Type  — *  kConst 

Biop-USge(c ,  outtype)  A 

let  COnsts(ci,  C2)  =  c  in 
let  «tringtype(n, .)  =  Type-Of-Consl{c  x)  in 
let  «tringtype(m, -)  =  Type- Of- Consist)  in 
if  B-U-Test(m ,  n,  c2) 
then  b2e0*<tVpe  (false) 
else  if  B-U-Test(n,m,  Cx) 
then  b2eaU((yy((true) 
else  if  Has-Query(cx)  V  Has-Query(c2) 
then  constquery( outtype) 
else  b2eau<tvpt(  ust(cj)>  ust(c2}) 


Biop- USlt:  kConst  X  kType  — *  kConst 

Biop-USlt[c ,  outtype)  A 

let  consts(ci,  c2)  =  c  in 

let  stringtype(n, .)  =  Type-Of-Const(cx)  in 
let  stringtype(m, .)  =  Type-Of-Const(cx)  in 
if  B- U- Test(n,  m,  cx ) 
then  b2e<„1((w,c  (false) 
else  if  B-  U-Test(m,  n,  c2) 
then  b2eou(lvr(  (true) 
else  if  Has-Query(cx)  V  Has-Query(c-x) 
then  constquery( outtype) 
else  b2eout(Vp((  ust(cj)  <  ust(c2)) 


Biop-USle:  kConst  x  kType  — »  kConst 

Biop-USle(c ,  outtype)  A 

let  consts(ci,  c2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Const(cx)  •" 
let  stringtype(m, .)  =  Type-Of-Const{ct)  in 
if  B-U-Test(n ,  m,  Cj) 
then  b2eouf(vp«  (false) 
else  if  B-U-Tesi(m,  n,  c2) 
then  b2c0ynypf  ( tf ue ) 
else  if  Has- Query ( c2 )  V  Has-Query(cj) 
then  constquery{ outtype) 
else  b2eaU((VP'(  ust(cj)<  ust(c2)) 


4. 6. 2.4  Relational  Operator*  on  Signed  Bit  Strings 


Relational  optimisation  test  on  signed  bit  strings: 
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B-S-TesUtsi  x  \  x  kConst  —  B 
B-S-Test(m,  n,  c)  A 

(m  >  n)  A  (  string(-,(<$i,---,igm])  =  Conv-String(c))  A 
(tgi  =  1)  A  (3  i  e  {2 ..(m-n)}-  ig,  =  2) 


Biop-Seq:  kConst  x  kType  — »  kConst 

Biop-Seq(c,  outtype)  A 

let  consts(ci,  C2 )  =  c  in 
let  stringtype(n, .)  =  Type-Of-Const(ci)  in 
let  stringtype(m, .)  =  Type-Of-Const(c j)  in 
if  B-S-Test(m,  n,  c2)  V  B-S-Test(n,  m ,  ci) 
then  b2e„,,M,,pt  (false) 
else  if  /faj- Query ( Ci)  V  Has-Query(cj) 
then  constquery( outtype) 
else  b2e.„<(lfP,(  sst(cj)  =  sst(c2)) 


Biop-Sgt:  kConst  x  kType  — •  kConst 

Biop-Sgt(c,  outtype)  A 

let  consts(ctl  c2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Consl(a)  in 
let  stringtype(m, .)  =  Type-Of-Const(cj)  in 
if  B-S-Test(m ,  n,  c2) 
then  b2e<,„«,,p,  (false) 
else  if  B-S-Test(n,  m ,  Ci) 
then  b2e0,J„ypt(trije) 
else  if  Has- Query ( a)  V  Has- Query (c2) 
then  constquery(  outtype) 
else  b2eou(ivp,(  sst(cj)  >  sst(c2)) 


Biop-Sge :  kConst  x  kType  — >  kConst 

Biop-Sge(c,  outtype)  A 

let  consts(ci,  c2)  =  c  in 
let  stringtype(n, .)  =  Type-Of-Const{c\)  in 
let  «tringtype(m, .)  =  Type-Of-Consl(cj)  in 
if  B-S-Test(m,  n,  ct) 
then  b Zcpuifjrpc  (false ) 
else  if  B-S-Test(n,m,  Ci) 
then  b2esvttypt(true) 
else  if  Has-Query(ci)  V  Has-Query(  c2) 
then  constquery(outtype) 
else  b2e„«lypf(  sst(cj)>  sst(c2)) 
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Biop-Slt:  kConst  x  kType  — *  kConst 

Biop-Slt(c ,  outtype)  A 

let  consts(ci,  C2)  =  c  in 
let  stringtype(n,.)  =  Type-Of-Const(ci)  in 
let  stringtype(m, .)  =  Type-Of-Conat^cj)  in 
if  B-S-Test(n,  m,  Ci) 
then  b2eDU<(y?(  (false) 
else  if  B-S-Test(m ,  n,  C2) 
then  b2eav((m(true) 
else  if  ffas-Query(ci)  V  Has-Query(ci) 
then  constquery(otifZype) 
else  b2eauuV7'(  sst(ci)  <  sst(c2)) 


Biop-Sle :  kConst  x  kType  — *  kConst 

Biop- Sle(c,  outtype)  A 

let  consts(ci,  C2)  =  c  in 
let  stringtype(n, .)  —  Type-Of-Const(ci)  in 
let  stringtype'  ..  ;  =  Type-OJ-Const(ci)  in 
if  B-S-Test(n,  m,  ci) 
then  b2e«„j((w,e  (false) 
else  if  B-S-Test(m,  n ,  C2) 
then  b2eotlffvpt(true) 
else  if  Has-Query(ci)  V  Has-Query(cj) 
then  constquery(ouZZype) 
else  b2eou«vpf(  sst(ci)<  sst(c2)) 


4.6. 2. 5  Shift  Operators  on  Unsigned  and  Signed  Bit  Strings 


Biop-SL:  kConst  x  ktype  —*  kConst 
Biop- SL{c,  outtype)  A 

let  stringtype(n,  ty)  =  Type-Of-Const(c)  in 
let  stringtype(n  +  m,ty)  =  outtype  in 
let  string(typeno,  [tg^,  •  ■  ■  (<?„])  =  Conv-String(c)  in 
string (typeno,  [fpi,  •  •  • ,  tgn )  ^  ((1  )m]) 


Biop-SRus:  kConst  x  ktype  — »  kConst 

Biop-SRus(c,  outtype)  A 

let  stringtype(n,  ty)  =  Type-Of-Const(c)  in 

let  stringtype(n  +  m,ty)  =  outtype  in 

let  string(Zypeno,[tyi,---<yn])  =  Conv-String(c)  in 

string(  Zypeno,  [( 1  )m]  rv  [<Si,  ■  •  • ,  <$„]) 
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Biop-SRs:  kConst  x  ktype  — *  kConst 

Biop-SRs{c,  outtype)  A 

let  stringtype(n,  ty)  =  Type-Of-Const(c)  in 
let  stringtype(n  +  m,  <y)  =  outtype  in 
let  string(typeno, \tgi,  •  •  •  =  Conv-String{c)  in 

string( typeno,  [<yim]  ^  {tpi,  •  •  ■ ,  «y„]) 


4.6. 2.6  Arithmetic  Operators  on  Unsigned  Bit  Strings 


Biop-USplus:  kConst  x  kType  — *  kConst 

Biop- USplus(c,  outtype)  A 
let  consts(ci,  cj)  =  c  in 
let  stringtype(n, .)  =  Ci  in 
let  stringtype(m, .)  =  c2  in 
let  stringtype(M.4  Af(m,  n)  +  1,.)  =  outtype  in 
USf'ouHyp,  (  ustcj  +  ustc2) 


Biop-USminvs:  kConst  x  kType  — >  kConst 

Biop- USminus(c,  outtype)  A 
let  consts(ci,  c2)  =  C  in 
let  stringtype(n,  _)  =  Cj  in 
let  stringtype(m, .)  =  c2  in 
let  stringtype(MAA'(m,  n)  +  1,  -)  =  outtype  in 
ust'1  ustcj-  ustc2) 


Biop-USneg:  kConst  x  kType  — >  kConst 

Biop- USneg(c,  outtype)  A 

let  stringtype(n, .)  =  c  in 

let  stringtype(n  +  1,-)  =  outtype  in 

ust1  ustc) 


Biop-  UStimes:  kConst  x  kType  — *  kConst 

Biop-UStimes{c,  outtype)  A 
let  consts(ci,  Cj)  =  c  in 
let  stringtype(n, .)  =  c2  in 

let  »tringtype(m, .)  =  c2  in 

let  stringtype(m  +  n, .)  =  outtype  in 
ust1  ustc2  *  ustc2) 
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Biop-USdivide:  kConst  x  kType  — *  kConst 

Biop-USdivide(c,  outtype)  A 
let  consts(ci,  c2)  =  c  in 
let  stringtype(n, .)  =  Ci  in 
let  stringtype(m, .)  =  c2  in 
let  types(  ty,  tyl,  ty2)  =  outtype  in 
let  stringtype(n,  _)  =  tyl  in 
let  stringtype(m,  .)  =  ty 2  in 
if  ust  c2  ^  0 

then  consts([  b2e<v(false),  ust'1tyi(  ustCjOVEi?  ustc2), 
usf\v2((  ustciOVER  ustc2)  *  ustc2))]) 
else  consts([  b2e<v(true),  constquery(tyl),  constquery(fy2)]) 


Biop-USsqrt:  kConst  x  kType  — *  kConst 

Biop-USsqrt(c ,  outtype )  A 

let  stringtype(n, .)  =  c  in 
let  stringtype((n  +  1)%2, .)  =  outtype  in 
y/  UStc) 


Biop-  USmod:  kConst  x  kType  — <  kConst 

Biop-USmod(c,  outtype)  A 
let  consts(ci,  c2)  =  c  in 
let  stringtype(n, .)  =  cj  in 
let  stringtype(m, .)  •-  c2  in 
let  types([ty,  stringtype(m, .)])  =  outtype  in 
if  ustc2  ^  0 

then  consts([  b2e,„(false),  ust'1  ouj(vp([2j(  ustciMOD  ustc2)]) 
else  consts([  b2e<v(true),  constquery(ou«ype[2])) 


Biop- VSrange:  kConst  x  kType  —*  kConst 

Biop-USrange(c,  outtype)  A 

let  stringtype(ji, .)  =  c  in 

let  types(ty,  stringtype(m, .))  =  outtype  in 

if  ustc  <  2m 

then  consts([  b2e(y(false),  usf1<,u„ypt[2](  ustc)]) 
else  consts([  b2e,v(true),  constquery(  ouftype[2))]) 
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4.6.2. 7  Arithmetic  Operators  on  Signed  Bit  Strings 
Biop-Splus:  kConst  x  kType  — *  kConst 

Biop-Splus(c,  outtype)  A 

let  consts(cj,  c2)  =  c  in 

let  stringtype(n, .)  =  cj  in 

let  stringtype(m, .)  =  c2  in 

let  stringtype(A/.4Af  (m,  n)  +  1,  -)  =  outtype  in 

sst'1  sstci  +  sstc2) 


Biop-Sminus:  kConst  x  kType  — *  kConst 

Biop-Sminus(c,  outtype)  A 
let  consts(c2,  c2)  =  c  in 
let  stringtype(n, .)  =  c2  in 
let  stringtype(m, .)  =  c2  in 
let  stringtype(M4A'(m,  n)  +  1, .)  =  outtype  in 
sst'1<,u«m(  SStCj-  sstc2) 


Biop-USneg:  kConst  X  kType  — *  kConst 

Biop-USneg(c ,  outtype)  A 

let  stringtype(n, .)  =  c  in 

let  stringtype(n  +  1,.)  =  outtype  in 

SSf'ouHjptt--  sstc) 


Biop-Stimes:  kConst  x  kType  — *  kConst 

Biop-Stimes(c,  outtype)  A 
let  consts(ci,  c2)  =  c  in 
let  stringtype(n, -)  =  Cj  in 
let  stringtype(m, .)  =  c2  in 
let  stringtype(m  +  n, .)  =  outtype  in 

SSt  outtype  (  SStCj  *  SStC2) 


Biop- S divide:  kConst  X  kType  — ♦  kConst 

Biop-Sdivide{c,  outtype)  A 
let  consts(c2,  c2)  =  c  in 
let  stringtype(n, .)  =  Cj  in 
let  stringtype(m, .)  =  c2  in 
let  types(  ty,  tyl,  ty2)  =  outtype  in 
let  stringtype(n, .)  =  tyl  in 
let  stringtype(m, .)  =  ty2  in 
if  sstc2^  0 

then  consts([  b2e(„(f»lse),  sst'1^  sstci  OVER  sstc2), 

»st  (V2  (  (  SSt  CyOVER  sstc2)  *  sstc2))]) 
else  consts([  b2e(v(true),  constquery(iyl),  constquery(fy2)]) 
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Biop-Smod:  kConst  x  kType  — *  kConst 

Biop-Smod(c,  outtype)  A 
let  consts(ci,  C2)  =  c  in 
let  stringtype(n,_)  =  Ci  in 
let  stringtype(m,  .)  =  C2  in 
let  types([fy,  stringtype(m, .)])  =  t  in 
if  sstC2  =  0 

then  consts([  b2et„(true),  constquery(outtj/pe[2])]) 
else  consts([  b2et„(felse),  sst'1ett(<1,J,<[2](  sstCiMOD  sst c2)] ) 


Biop-Srange:  kConst  x  kType  — +  kConst 

Biop- Srange(c,  outtype)  A 

let  stringtype(n, .)  =  c  in 

let  types(ty,  stringtype(m, .))  =  outtype  in 

if  sstc  <  2m 

then  consts([  b2e,„(false),  sst ^ (  sstc)]) 
else  consts([  b2e,v(true),  constquery(outft/pe[2])]) 


Biop-Sabs:  kConst  x  kType  —•  kConst 

Biop-Sabs(c ,  outtype)  A 

let  stringtype(n,  _)  =  c  in 

let  stringtyp e(n ,.)—  outtype  in 

sst'^ui tyP'(ABS  sstc) 


4. 6. 2. 8  Transformation  Operators 

This  section  defines  transformational  operators  on  unsigned,  signed  strings  and  integer  types 

Biop-TUS:  kConst  x  kType  x  kType  — ►  kConst 

Biop-TUS(c,  intype,  outtype)  A 

if  Get- Type  (intype)  =  stringtype(., .) 
then  Biop-STUS(c,  outtype) 
else  Biop-ETUS(c,  outtype) 


Biop- TS:  kConst  x  kType  x  kType  — *  kConst 

Biop-TS(c,  intype,  outtype)  A 

if  Get-Type(intype)  =  stringtype(_, .) 
then  Biop-STS(c,  outtype) 
else  Biop-ETS(c,  outtype) 
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Biop-STUS:  kConst  X  kType  — »  kConsi 

Biop- STUS(c,  outtype)  A 

let  stringtype(n, .)  =  Type-Of-Const(c)  in 
let  types(tyl,  iy2)  =  outtype  in 
let  (~,lwb,upb)  =  Find- Integer-  Type(ty2)  in 
if  ustc  <  upb 

then  consts((  b2efvi(false),  ustc]) 

else  consts([  b2e<yl(true),  constquery(  ty2)]) 


Biop-ETUS:  kConst  x  kType  — *  kConst 

Biop-ETUS(c,  outtype)  A 

let  ty  =  Type-Of-Const(c)  in 

let  (.,lwb,upb)  =  Find-Integer-  Type(ty)  in 

let  enum(_,  tagno)  =  c  in 

let  types(tyl,  stringtype(m, .))  =  outtype  in 
let  int  =  Iwb  +  tagno- 1  in 
if  tnf  <  2m 

then  consts([  b2et„i(false),  ust'1<>tl,(y,,e[2]c]) 

else  consts([  b2e(yi(true),  constquery(ot/ttype[2])]) 


Biop-STS :  kConst  x  kType  — *  kConst 

Biop- STS(c,  outtype)  A 

let  stringtype(n, -)  =  Type-Of-Const(c)  in 
let  types(tyl,  ty2)  =  outtype  in 
let  (.,lwb,upb)  =  Find- Integer- Type {ly 2)  in 
if  sstc  <  upb 

then  consts((  b2e<vi(false),  sstc]) 

else  consts([  b2e(]/i(true),  constquery(  ty2)]) 


Biop-ETS:  kConst  x  kType  — *  kConst 

Biop-ETS(c,  outtype)  A 

let  ty  =  Type-Of-Const(c)  in 

let  (_,  tip6)  =  Find- Integer- Type{ty)  in 

let  enum(.,  tagno)  =  c  in 

let  types(fyl,  stringtype(m, .))  =  outtype  in 
let  int  =  /tcfc  tagno-\  in 
if  -2ml<  int  <  2m  l 

then  consts([  b2e(vl(false),  sst'1„u(<mj2]c]) 

else  consts([  b2e<vi(true),  constquery( outfypc[2])]) 
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4.7  Function  Evaluation 

In  the  previous  sections  we  have  defined  all  the  functions  necessary  for  the  evaluation  of  a 
Kernel  function  instance.  It  now  remains  to  construct  the  appropriate  calling  functions.  The 
outer  most  function  will  be  one  which  takes  a  function  instance  with  a  specified  input  value  list 
and  a  specified  evaluation  time  and  returns  a  constant  value  result.  A  function  instance  body 
can  either  be  a  basic  built  in  function,  such  as  Delay,  Ram  etc,  or  it  can  be  a  unit  clause.  The 
following  two  functions  define  the  evaluation  calling  process  for  these  two  cases. 

The  evaluation  of  a  unit  expression  is  defined  by 

Evaluate- Unit:  Unit  X  Signaldec *  x  Input’  x  Time  — *  Const 

Evaluate- Unit(unit ,  sigdecs,  inputs,  time)  A 
cases  unit  of 

cone ( ttj,  U2,  ty)  — >  let  ci  =  Evaluate-  Unit(u-i,  sigdecs,  inputs,  time)  in 

let  C2  =  Evaluate- Unit (u2,  sigdecs,  inputs,  time)  in 
if  stringtypef., .)  =  Get-Type(ty) 
then  Conc-String(c\,  c2,  ty) 
else  Cone-Cons.' ri,  c2,  ty) 

unitstring(st2e,  unit)  — *  let  c  =  Evaluate- Unit(unit,  sigdecs,  inputs,  time)  in 

conststring(s:2e,  c) 

units([i/i,  •  •  • ,  u/c])  — »  let  c,  =  Evaluate-  Unit(u,,  sigdecs,  inputs,  time)  V  i  €  [l../s]  in 

consts([cj,  •  •  • ,  e*]) 

instanc e(fnno,unit)  —  let  fdec  =  ( EnvFndec)\fnno)  in 

if  fdec.fnbody  €  kUnit 

then  let  inputs'  =  Update- Inputs  {unit,  sigdecs,  inputs,  time)  in 
Evaluate-Fn[fnno,  inputs',  time) 
else  Evaluate- Builtin(f dec,  sigdecs,  inputs,  unit,  time) 
unitassoc {enum,unit)  — *  let  c  =  Evaluate- Unit(unit,  sigdecs,  inputs,  time)  in 

constassoc(em/m,  c) 

extract  (unit,  enum)  — *  let  c  =  Evaluate- Unit(unit,  sigdecs,  inputs,  time)  in 

Evaluate- Extract(c,  enum) 

signal {signalno)  — >  Sig{signalno,  sigdecs,  inputs,  time) 

index( unit,  ind,  ty)  — *  let  c  =  Ex>aluaie-Unit(unit,  sigdecs,  inputs,  time)  in 

Evaluate-Index(c,  ind,  ty) 

tTim(unit,indl,ind2,ty)—>  let  c  =  Evaluate-  Unit(unit,  sigdecs,  inputs,  time)  in 

Evaluate-  Trim(c,  ind  1,  ind 2,  ty) 

dyindex(t/!,  u2,  ty)  — »  let  Cj  =  Evaluate-  Unit(ui,  sigdecs,  inputs,  time)  in 

let  C2  =  Evaluate- Unil{u2,  sigdecs,  inputs,  time)  in 
Evaluate- Dyindex{c\,  c2,  ty) 

replace(ui,  «2,  U3)  — ►  let  Ci  =  Evaluate- Unit(uj,  sigdecs,  inputs,  time)  in 

let  c 2  =  Evaluate- Unit(u2,  sigdecs,  inputs,  time)  in 
let  C3  =  Evaluate- Unit(u2,  sigdecs,  inputs,  time)  in 
Evaluate-Replace(ci,  c2,  c3) 
unitquery(ty)  — *  constquery (ty) 

caseclause(uj,  cseq,  u2)  — *  let  chooser  =  Evaluate-  Unit(u2,  sigdecs,  inputs,  time)  in 

let  u  =  Evaluate- Case(chooser,  cseq,  u2,  sigdecs)  in 
Evaluate-Unit(u,  sigdecs,  inputs,  time) 
unitvoid  — *  constvoid 


end 
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and  the  evaluation  of  the  built-in  primitives  is  defined  by 

Evaluate- Builtin:  kFndec  x  Signaldec *  x  Input *  x  kUnit  x  Time  — *  kConst 

Evaluate- Builtin(fdec,  sigdec ,  inputs ,  unit,  time)  A 
cases  fdec.fnbody  of 

reform  — » let  cseq  =  Flatten- Const{  Evaluate- Unit{unit,  sigdec,  inputs,  time))  in 
Evaluate-Ref(yrm(cseq,fdec.outputtype)[2] 
biop  — »  Evaluate- Biop{f dec ,  Evaluate-  Unit{unit,  sigdec ,  inputs ,  time)) 

delay  — *  Evaluate- Delay  {fdec.fnbody,  sigdec,  inputs,  unit,  time) 
idelay  — *  Evaluate-Idelay(fdec.fnbody ,  sigdec ,  inputs,  unit,  time) 
sample  — >  Evaluate-Sample{fdec.fnbody,  sigdec,  inputs,  unit,  time) 
ram  — *  Evaluate- Ram{ fdec.fnbody. initial,  sigdec,  inputs,  unit,  time) 

end 


For  completeness  we  restate  the  function  which  calculates  all  the  necessary  inputs  for  a  function 
call,  this  function  is  the  same  as  defined  for  K2. 

Update-Inputs:  Ezpr  x  Signal’  x  Input ’  x  Time  Input’ 

Update-Inputs{e,  signals,  inputs,  t)  A 
if  f>  0 

then  let  inputs'  =  Update-Inputs(e,  signals,  inputs,  (t- 1))  in 
inputs'  t  [{Evaluate- Exp(e,  signals,  inputs',  t),  f)] 
else  inputs 


We  can  now  define  the  top  level  function  which  evaluates  a  Kernel  function  instance  at  a  given 
time  and  with  a  given  input  history 

Evaluate-Fn:  Nat  x  Input *  x  Time  —  Const 

Evaluate-Fn{fnno,  inputs,  time)  A 
let /dec  =  (Fnt;Fn<iec)[/nno]  in 
if  fdec.fnbody  £  kUnit 

then  Evaluate-  Unit{fdec.fnbody,fdec.signaldecseq,  inputs,  time) 
else  let  (c,  time)  £  inputs  in 

Evaluate-Builtin{fdec,Jdec.signaldecseq,  inputs,  Convert- Const- Unit(c),  time) 


This  now  completes  the  definition  of  the  dynamic  semantics  of  the  Kernel.  In  the  next  sub¬ 
section  we  revisit  an  example  shown  previously  to  show  how  an  ELLA  description  transforms 
into  a  Kernel  expression  and  what  the  input  to  its  evaluation  function  would  be. 


4.8  Example 

In  this  example  we  present  the  example  of  a  Reset  /Set  Flip  Flop  as  given  in  section  3.4.  An 
ELLA  description  of  this  circuit  is 
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TYPE  bool  =  HEW  (h  I  1). 

FH  DEL  =  (bool)->bool:  DELAY(1, 1 ,1,1) . 

FI  I0R  ■  ([2] bool: in)  ->  bool: 

CASE  in  OF 
(1.1)  :  h, 

(l.h)  :  1. 

(h.l)  :  1. 

(h.h)  :  1 
ELSE  1 
ESAC. 

FH  RSFF  =  (bool:  ini,  bool:  in2)  ->  bool: 

BEGIH 

MAKE  DEL:  dell. 

MAKE  DEL:  del2. 

MAKE  HOR:  norl. 

MAKE  HOR:  nor 2. 

JOIH  (ini,  del2)  ->  norl. 

JOIH  (in2,  dell)  ->  nor2. 

JOIH  norl  ->  dell. 

JOIH  nor2  ->  del2. 

OUTPUT  dell 
EHD . 

The  resulting  Kernel  environment,  which  is  obtained  by  passing  the  above  ELLA  description 
of  the  circuit  through  the  implementation  of  the  semantic  rules  defined  in  [HM92],  is  given  by 

([TYPEDEC  ("bool"  Tags([Tag(h,  NIL).Tag(l,  NIL)]))], 

[FNDEC(  DEL,  Typano(l),  [] ,  Typano(l),  Delay  (Enured,  2),  1,  Enured.  2),  1)) 

FNDEC(  NOR,  Types( [Typano(l) ,  Typeno(l)]), 

[SignaldecO'in",  Typai( [Typano(l)  ,  Typano(l)]),  input)], 

Typeno(l) , 

Caseclause(Signal(l) , 

[Case(Constsets( [Enurnd ,  2), Enured,  2)]),  Enum(l,  1)), 
Case(Constsets( [Enured ,  2), Enured,  1)]),  Enured,  2)), 
Case(Constsets( [Enured ,  1), Enured,  2)]),  Enured,  2)), 
Case(Constsets(  [Enured  ,  1), Enured,  1)]),  Enured,  2))], 

Enured ,  2))) 

FNDEC(  RSFF,  Types( [Typeno(l) ,  Typenod)]), 

[SignaldeeC'inl",  Typenod),  input), 

Signaldee("in2" ,  Typenod),  input), 

SignaldecC'dell",  Typeno(l),  Instanced,  Signal(6))), 

Signaldec("del2",  Typenod),  Instanced,  Signal(e))), 

Signaldec ( "norl " ,  Typeno(l),  Instance(2,  0nits([Signel(l),  Signal(4)] )) ) , 
Signaldec( "nor2" ,  Typeno(l),  Instanced,  Onits( [Signal(2) ,Signal(3)] ) ) )] , 
Typeno(l) , 

SignalO)) 

]) 

The  correspondence  with  the  environment  given  for  this  circuit  in  section  3.4,  for  the  language 
K2,  can  be  noted.  Evaluation  of  this  circuit  follows  the  approach  given  for  K2  e.g.  Evaluation 
of  RSFF  at  time  t=3  is 
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Evaluate-Fn(3,  inputs ,  3) 


where 


(l,h)  # 
(l,h)  # 

m  # 

(l,h)  # 


The  result  of  the  evaluation  would  be  enum(l,l)  #  h  #. 


inputs  =  [  (  consts(  enum(l,2),  enum(l,l)),  0),  # 

(  consts(  enum(l,2),  enum(l,l)),  1),  # 

(  consts(  enum(l,2),  enum(l,l)),  2),  # 

(  consts(  enum(l,2),  enum(l,l)),  3)  # 


5  Conclusion 

In  this  report  we  have  defined  the  dynamic  semantics  of  Kernel  ELLA.  A  link  between  the  work 
described  here  and  earlier  investigations  has  been  shown.  An  implementation  of  the  rules  for  a 
reduced  Kernel  language,  called  K2,  has  been  carried  out.  The  semantics  given  for  the  Kernel 
in  this  document  are  meant  to  reflect  the  semantics  of  the  full  ELLA  system,  however  as  only 
limited  checking  of  the  definitions  given  here  has  been  carried  out  their  correctness  or  otherwise 
remains  to  be  established. 
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A  Glossary  of  Symbols 

Functions 


/:  D\  x  Di  — *  R 

signature 

/A  ••• 

function  definition 

f(d) 

application 

if  •  •  •  then  •  •  •  else  •  •  • 

condtional 

/et  *  =  •  •  •  in  •  •  • 

local  definition 

case  z  of  •  •  •  else  •  •  •  end 

choice 

post 

post-condition 

ext  rd 

external  read 

Sets 


T-set 

finite  subset  of  T 

{*1, 

set  enumeration 

{} 

empty  set 

t  €  T 

set  membership 

T\  n  Tj 

set  intersection 

Tj  u  Ti 

set  union 

T\  C  T2 

set  containment 

Tit  r, 

overwriting 

z 

-1,  o,  1,  ..  } 

Ni 

{1,  2,  •  ••} 

B 

{true,  false} 

Sequences 


5* 

finite  sequence 

[«1.  •'•,**] 

sequence  enumeration 

N 

empty  sequence 

len  l 

length  of  sequence  l 

*1  ^  *2 

concaternation 

i(i  €  inds  sequence)  ■  sequence\i)  =  s 

The  unique  element  of  sequence  which  equals  s 

Environment 


E  =  Env(_, 

Transformation  Environment 

E. fieldname 

field  selection  in  the  Kernel 

( E.filedname)  [  number  ] 

indexing 

Kernel 


typedec(_,_) 

Kernel  data  structure  with  wild-card  entries 

Type  Opt 

Type  structure  with  optional  element  nil 

TypeSeq 

Non-empty  sequence  of  Type s 

kType 

‘Type’  belonging  in  the  Kernel 

Intentionally  Blank 
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B  Kernel  of  ELLA  Data  Structure 

B.l  Conventions 


abc 

€ 

Abc  (ie.  it  is  an  element  of  the  set  Abc) 

Indexer,  Size,  Fnno 

C 

Ni 

Typeno,  Tagno,  Inputno 

C 

Nr 

Signalno,  Delaytime 

c 

N, 

Interval,  Ambigtime 

c 

N 

Skew 

c 

Z 

Inputtype,  Outputtype 

c 

Type 

Initialvalue,  Ambigvalue 

c 

Const 

Fnname,  Biopname 

c 

Upper  case  identifier  or  operator 

Name,  Signalname 

c 

Lower  case  identifier 

Typename,  Tagname 

c 

Lower  case  identifier 

Lowerboimd,  Upperbound 

c 

positive  or  negative  integer 

Character 

c 

printable  character 

B.2  Data  Structures 
Enumerated  Type  Values 


Enumerated  ::=  Enum 

|  string(  Typeno  x  TagnoSeq  ) 

Enum  ::=  enum(  Typeno  x  Tagno  ) 

Signal  Types 


Type  typeno(  Typeno  ) 

|  typename(  Typename  x  Type  ) 
|  stringtype(  Size  x  Type  ) 

I  types(  TypeSeq  ) 

|  typevoid 


Constants  (Initialisation  parameters) 

Const  ::=  Enumerated 

|  conststring(  Size  x  Const  ) 

|  consts(  ConstSeq  ) 

|  constassoc(  Enum  x  Const  ) 

|  constquery(  Type  ) 

|  eonstvoid 
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Constant  Sets  (Case  Clause  chooser  values) 

Constset  ::=  Enumerated 

|  constsetalts(  ConstsetSeq  ) 

|  constsetstring(  Size  x  Constset  ) 

|  constsets(  ConstsetSeq  ) 

|  constsetassoc(  Enum  x  Constset  ) 
|  consts etany(  Type  ) 


Units  (Value  delivering  expressions) 


Unit  ::=  Enumerated 

j  conc(  Unit  x  Unit  x  Outputtype  ) 

|  unitstring)  Size  x  Unit  ) 

|  units(  UnitSeq  ) 

|  instance(  Fnno  x  Unit  ) 

|  unitassoc(  Enum  x  Unit  ) 

|  extract (  Unit  x  Enum  ) 
j  signal)  Signalno  ) 

|  index(  Unit  x  Indexer  x  Outputtype  ) 

|  trim(  Unit  x  Indexer  x  Indexer  x  Outputtype  ) 
|  dyindex(  Unit  x  Unit  x  Outputtype  ) 

|  replace(  Unit  x  Unit  x  Unit  ) 

|  unitquery(  Type  ) 

|  caseclause(  Unit  x  CaseSeq  x  Unit  ) 

|  unitvoid 

Case  case(  Constset  x  Unit  ) 

Function  Declarations 


Fndec 

fndec(  Fnname  x  Inputtype  x  SignaldecSeq  x  Outputtype  x  Fnbody  ) 

Signaldec 

:::= 

signaldec(  Signalnaine  x  Type  x  Unitorinput  ) 

Unitorinput 

;;s 

Unit 

|  input 

Fnbody 

Unit 

i 

reform 

i 

biop(  Biopname  ) 

i 

delay(  Initialvalue  x  Ambigtime  x  Ambigvalue  x  Delaytime  ) 

i 

idelay(  Initialvalue  x  Delaytime  ) 

i 

sample)  Interval  x  Initialvalue  x  Skew  ) 

i 

ram(  Initialvalue  ) 

Kerne 1  Dynamic  Semantics 


Type  Declarations 

Typedec  ::=  typedec(  Typename  x  New  ) 

New  ::=  tags(  TagSeq  ) 

|  ellaint(  Tagname  x  Lowerbound  x  Upperbound  ) 
j  chars  (  Tagname  x  CharacterSeq  ) 

Tag  ::=  tag(  Tagname  x  TypeOpt  ) 

Environment  Closure 


Closure 


TypedecSeq  x  FndecSeq 


Intentionally  Blank 
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